Skriv en funktion i Visual Basic 6 som omvandlar tid i sekunder till tiden i timmar , minuter och sekunder när du behöver visa den läsbara format för en tid i sekunder värde . Datorer använder ofta tid i sekunder från ett visst datum , till exempel januari 1 1970 . Det är svårt för människor att läsa om inte översättas till ett standardformat som datoranvändare är vana vid . Använd " Sub " och " Dim " sökord för att skapa en enkel konvertering funktion för tid i sekunder . Instruktioner
1
Öppna Visual Basic 6 projekt som du behöver för att konvertera en tid i sekunder värde till Timmar /Minuter /Sekunder tidsformat . Skriv följande funktioner i programmet :
Private Sub SecondsToHMS ( ByVal sekunder såvida ) katalog
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
Observera att " Private Sub " nyckelord används för att ställa in funktionen som heter " SecondsToHMS " som kommer att konvertera en tid i sekunder värdet till timmar, minuter och sekunder .
2
Inspektera varje " Dim " linjen och noterar att varje ord efter " Dim " är en variabel som används för att hålla ett konverterade värdet i sekunder . " HR " rymmer det antal sekunder som konverteras till timmar , " MS " håller antalet sekunder ( eller modul ) kvar från tider beräkning omvandlas till minuter , och " SS " håller antalet sekunder ( eller modul ) kvar från minuterna beräkningen .
3
Visa tiden i sekunder konverteras värdet till timmar , minuter och sekunder i det format som krävs av Visual Basic 6 program . Till exempel, om du visar aktuell tid med timmar , minuter och sekunder i formuläret , skriv in följande i programmet funktionen ovan precis innan " End Sub " line :
Form1.show
Skriv ut " Hours = " + HR
Print " Minutes = " + MS
Print " sekunder = " + SS
