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 nel valore dei secondi. I computer utilizzano comunemente il tempo in secondi da una data specifica, ad esempio 1° gennaio 1970. È difficile per gli esseri umani a leggere a meno convertiti in un formato standard a cui sono abituati gli utenti di computer. Utilizzare le parole chiave "Sub" e "Dim" per creare una funzione di conversione semplice per tempo in secondi.
Istruzioni
1
Aprire il progetto di Visual Basic 6 per i quali è necessario un tempo nel valore dei secondi di convertire il formato di tempo di ore/minuti/secondi. Digitare la seguente funzione nel programma:
Private Sub SecondsToHMS(ByVal Seconds As Long)
Dim HR As Integer
Dim MS As Integer
Dim SS As Integer
HR = Secs \ 3600
MS = (Secs Mod 3600) \ 60
SS = (Secs Mod 3600) Mod 60
End Sub
Si noti che le parole chiave "Private Sub" vengono utilizzate per impostare la funzione denominata "SecondsToHMS" che permette di convertire una volta nel valore dei secondi a ore, minuti e secondi.
2
Ispezionare ogni riga "Dim" e si noti che ogni parola dopo "Dim" è una variabile che viene utilizzata per contenere un valore convertito in pochi secondi. "HR" detiene il numero di secondi convertito in ore, "MS" detiene il numero di secondi (o modulo) lasciato dal calcolo ore convertito in minuti, e "SS" contiene il numero di secondi (o modulo) lasciati dal calcolo minuti.
3
Visualizza l'ora nel valore dei secondi convertita in ore, minuti e secondi utilizzando il formato richiesto dal programma di Visual Basic 6. Ad esempio, se si visualizza l'ora corrente con ore, minuti e secondi in forma, è possibile scrivere il seguente la funzione di programma sopra appena prima della riga "End Sub":
Form1
Stampare "Hours =" + HR
Stampa "minuti =" + MS
Stampa "secondi =" + SS