Come convertire i secondi di tempo per Visual Basic 6

Scrivi 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 usano comunemente il tempo in secondi da una data specifica, ad esempio gennaio, 1 1970. E 'difficile lettura per gli umani a meno che tradotto in un formato standard a cui gli utenti di computer sono abituati . Usa le parole chiave " Sub " e " Dim " per creare una semplice funzione di conversione per il tempo in secondi. Istruzioni
1

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

SecondsToHMS Private Sub ( secondi ByVal come lungamente)

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

2 End Sub

noti che le " private Sub " parole chiave vengono utilizzati per impostare la funzione denominata " SecondsToHMS " che converte un tempo nel valore dei secondi a ore, minuti e secondi.

Ispezionare ogni riga " Dim " e notare che ogni parola dopo " Dim " è una variabile che viene utilizzato per contenere un valore convertito in secondi . "HR" contiene il numero di secondi convertiti 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

Visualizza il tempo in secondi, valore convertito in ore , minuti e secondi utilizzando il formato richiesto dal programma di Visual Basic 6 . Per esempio, se si sta visualizzando l'ora corrente con le ore , minuti e secondi in forma , scrivere il seguente in funzione del programma di sopra poco prima del "End Sub " linea :

Form1.Show

Stampa " Hours = " + HR

Stampa " Minutes = " + MS

stampa " secondi =" + SS

• Come combinare le immagini da due bitmap in VB.Net 
• Come fare un pulsante di chiamata a Private Sub in VB