Slik konverterer sekunder til Tid for Visual Basic 6

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 en 1970. Det er vanskelig for mennesker å lese mindre oversettes til et standard format som PC-brukere er vant til. Bruk "Sub" og "Dim" søkeord for å lage en enkel konvertering funksjon for tiden i sekunder.

Bruksanvisning

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

Private Sub SecondsToHMS (ByVal sekunder så lenge)

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

End Sub

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

2 Inspiser hver "Dim" linje 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 antall sekunder (eller modulus) igjen fra timer beregningen til minutter, og "SS" holder antall sekunder (eller modulus) igjen fra protokollen 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, skriver følgende i programmet funksjonen over like før "End Sub" linje:

Form1.show

Skriv ut "Hours =" + HR

Skriv ut "Minutes =" + MS

Skriv ut "Seconds =" + SS