Skriv en funktion i Visual Basic 6 , der konverterer tid i sekunder til tiden i timer , minutter og sekunder , når du har brug for at vise den menneskelige læsbart format for en tid i sekunder værdi. Computere almindeligt brug tiden i sekunder fra en bestemt dato , som januar, 1. 1970. Det er svært for mennesker at læse , medmindre oversat til et standardformat , som computerbrugere er vant til. Brug " Sub " og " Dim " stikord til at oprette en simpel konvertering funktion for tiden i sekunder. Instruktioner
1

Åbn Visual Basic 6 projekt, som du har brug for at konvertere en tid i sekunder værdi for timer /minutter /sekunder tidsformat. Indtast følgende funktion i programmet:

Private Sub SecondsToHMS ( ByVal sekund, så længe )

Dim HR As Integer

Dim MS As Integer

Dim SS As Integer

HR = Sek \\ 3600

MS = ( Sek Mod 3600 ) \\ 60

SS = ( Sek Mod 3600 ) Mod 60

End Sub

Bemærk at "Private Sub " nøgleord bruges til at oprette den funktion med navnet " SecondsToHMS ", der vil konvertere en tid i sekunder værdi for timer, minutter og sekunder.
2

Efterse hver " Dim " linje og bemærk at hvert ord efter " Dim " er en variabel, der bruges til at holde en konverterede værdi i sekunder. " HR " holder det antal sekunder konverteres til timer , "MS " holder det antal sekunder (eller modulus) tilovers fra timer beregning konverteret til minutter , og " SS " holder det antal sekunder (eller modulus) tilovers fra minuttallet beregningen.
3

Vise tiden i sekunder omregnet til timer , minutter og sekunder ved hjælp af formatet kræves af din Visual Basic 6-programmet . For eksempel, hvis du viser den aktuelle tid med timer, minutter og sekunder i form, skriver følgende i programmet funktionen ovenfor lige før " End Sub " linjen : Hej

Form1.show
< p> Udskriv " Hours = " + HR

Print " Minutes = " + MS

Print " Seconds = " + SS