Come convertire a Time secondi per Visual Basic 6

July 9

Come convertire a Time secondi per Visual Basic 6


Scrivere una funzione in Visual Basic 6 che converte il tempo in secondi di tempo in ore, minuti e secondi quando è necessario visualizzare il formato leggibile per un tempo di valore secondi. I computer utilizzano comunemente tempo in secondi da una data specifica, ad esempio gennaio 1 1970. E 'difficile per gli esseri umani da leggere a meno che tradotto in un formato standard a cui gli utenti di computer sono abituati. Utilizzare il "Sub" e le parole chiave "Dim" per creare un semplice funzione di conversione per il tempo in secondi.

istruzione

1 Aprire il progetto di Visual Basic 6 per i quali è necessario convertire un tempo di valore secondi per l'/ minuti / secondi formato ore di tempo. Digitare la seguente funzione nel programma:

Private Sub SecondsToHMS (secondi ByVal As Long)

Dim HR As Integer

Dim MS As Integer

Dim SS As Integer

HR = Secondi \ 3600

MS = (Sec Mod 3600) \ 60

SS = (Sec Mod 3600) Mod 60

End Sub

Si noti che le "Sotto privato" parole chiave vengono utilizzate per impostare la funzione denominata "SecondsToHMS" che permette di convertire un tempo in secondi del valore di ore, minuti e secondi.

2 Controllare ogni riga "Dim" e si noti che ogni parola dopo "Dim" è una variabile che viene utilizzato per contenere un valore convertito in pochi secondi. "HR" tiene il numero di secondi convertite in ore, "MS" contiene il numero di secondi (o modulo) lasciati dal calcolo ore convertito in minuti, e "SS" contiene il numero di secondi (o modulo) rimasto da il calcolo minuti.

3 Visualizzare l'ora in valore dei secondi convertito in ore, minuti e secondi utilizzando il formato richiesto dal programma Visual Basic 6. Ad esempio, se si sta visualizzando il tempo corrente con le ore, i minuti ei secondi in forma, scrivere quanto segue nella funzione di programma di cui sopra appena prima della riga "End Sub":

Form1.Show

Stampare "Ore =" + HR

Stampare "Minutes =" + MS

Stampare "Secondi =" + SS