Skriv en funksjon i Visual Basic 6 som konverterer tid i sekunder til tiden i timer , minutter og sekunder når du trenger å vise lesbar format for en tid i sekunder verdi. Datamaskiner vanligvis bruker tiden i sekunder fra en bestemt dato, for eksempel januar, 1. 1970 . Det er vanskelig for mennesker å lese hvis ikke oversettes til et standardformat til PC-brukere som er vant til. Bruk " Sub" og " svak" søkeord for å lage en enkel konvertering funksjon for tiden i sekunder . Instruksjoner
en

Åpne Visual Basic 6 prosjekt som du trenger å konvertere en tid i sekunder verdi til timer /minutter /sekunder tid format . Skriv inn følgende funksjon i programmet :

Private Sub SecondsToHMS ( ByVal sekunder som Long )

Dim HR As Integer

Dim MS As Integer

Dim SS As Integer

HR = Sekunder \\ 3600

MS = ( Sekunder Mod 3600 ) \\ 60

SS = ( Sekunder Mod 3600 ) Mod 60

Avslutt Sub

Merk at "Private Sub " stikkord brukes til å sette opp funksjonen som heter " SecondsToHMS " som vil konvertere en tid i sekunder verdi til timer, minutter og sekunder .
2

Inspiser hver " Dim "-linjen og merk at hvert ord etter " Dim " er en variabel som brukes til å holde en konverterte verdien i sekunder. "HR " holder antall sekunder konvertert til timer , " MS " holder det antall sekunder (eller modulus) igjen fra timer beregningen omgjort til minutter , og "SS " holder det antall sekunder (eller modulus) igjen fra minuttene beregningen.
3

Vise klokkeslettet i sekunder verdi konvertert til timer, minutter og sekunder ved hjelp av formatet som kreves av Visual Basic 6 program . For eksempel, hvis du viser gjeldende tid med timer, minutter og sekunder i form, skrive inn følgende i programmet funksjon ovenfor like før " End Sub "-linjen : en

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

Print " Minutes = " + MS

Print " Seconds = " + SS