Wie Seconds to Zeit Konvertieren für Visual Basic 6

Verwenden Sie den Visual Basic in Sekunden Umwandlung Funktion als Teil eines Konvertierungsprogramm.

Öffnen Sie den 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

Beachten Sie, 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.

Ü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.

Anzeigen der Zeit in Sekunden umgerechnet, um Stunden, Minuten und Sekunden mit dem Format von Ihrem Visual Basic 6 Programm erforderlich. 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

Drucken "Stunden =" + HR

Drucken "Minutes =" + MS

Drucken "Seconds =" + SS