Schreiben Sie eine Funktion in Visual Basic 6 , die Zeit in Sekunden konvertiert zu Zeit in Stunden , Minuten und Sekunden , wenn Sie den Menschen lesbaren Format für eine Zeit in Sekunden Wert anzuzeigen benötigen . Computer verwenden häufig Zeit in Sekunden, ab einem bestimmten Zeitpunkt , wie dem 1. Jänner 1970 . Es ist schwierig für Menschen zu lesen , es sei denn zu einem Standard- Format, in das Computer-Anwender gewohnt sind übersetzt . Verwenden Sie die "Sub " und " Dim " Stichworte, um eine einfache Funktion zur Umwandlung in Sekunden erstellen. Anleitung
1

Öffnen Sie die Visual Basic 6 -Projekt , für das Sie brauchen, um eine Zeit in Sekunden -Wert zu konvertieren , um die Stunden /Minuten /Sekunden Zeit Format . Geben Sie die folgende Funktion in das Programm :

Private Sub SecondsToHMS (ByVal Sekunden As Long )

Dim HR As Integer

Dim MS As Integer Dim

SS As Integer

HR = § § \\ 3600

MS = (Sec Mod 3600) \\ 60

SS = ( § § 3600 Mod ) Mod 60

End Sub

Hinweis , dass die "Private Sub" Schlüsselwörter verwendet werden , um die Funktion mit dem Namen " SecondsToHMS " , die eine Zeit in Sekunden Wert konvertieren, um Stunden, Minuten und Sekunden.
2

Überprüfen Sie jeden " Dim "-Linie und beachten Sie, dass jedes Wort nach " Dim " eine Variable, die verwendet werden, um einen umgerechneten Wert in Sekunden halten ist . "HR" enthält die Anzahl der Sekunden umgewandelt in Stunden, "MS" enthält die Anzahl der Sekunden (oder Modul) über Stunden aus der umgerechnet auf Minuten verlassen und "SS" enthält die Anzahl der Sekunden (oder Modul) über von links die Berechnung Minuten .
3

anzeigen der Zeit in Sekunden Wert in Stunden, Minuten und Sekunden mit dem Format von Ihrem Visual Basic 6 Programm benötigt umgewandelt. Zum Beispiel, wenn Sie die Anzeige der aktuellen Uhrzeit mit Stunden, Minuten und Sekunden in der Form, schreiben die folgende Funktion in das Programm oben kurz vor dem "End Sub "-Linie :

Form1.Show
< p > Drucken "Stunden =" + HR &

Print "Minutes =" + MS

Print "Seconds =" + SS