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