Wie Zeit für Visual Basic 6 Sekunden konvertieren

Schreiben Sie eine Funktion in Visual Basic 6, die Zeit in Sekunden an die Zeit in Stunden, Minuten und Sekunden, wenn Sie den lesbaren Form für eine Zeit in Sekundenwert anzeigen müssen, konvertiert. Computer verwenden häufig die Zeit in Sekunden aus einem bestimmten Datum, z. B. 1. Januar 1970. Es ist schwierig für den Menschen zu lesen, wenn in einem Standardformat übersetzt, die was Computer-Anwender gewohnt sind. Verwenden Sie die Schlüsselwörter "Sub" und "Dim" erstellen Sie eine einfache Konvertierung-Funktion für die Zeit in Sekunden.

Anweisungen

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

Private Sub SecondsToHMS(ByVal Seconds As Long)

Dim HR As Integer

Dim MS As Integer

Dim SS As Integer

HR = Secs \ 3600

MS = (Secs Mod 3600) \ 60

SS = (Secs Mod 3600) 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 Sekundenwert in Stunden, Minuten und Sekunden umwandeln wird eingerichtet.

2 Überprüfen Sie jede Zeile "Dim" und beachten Sie, dass jedes Wort nach "Dim" eine Variable, die verwendet wird ist, um ein konvertierter Wert in Sekunden zu halten. "HR" hält die Anzahl der Sekunden bis Stunden, "MS" hält konvertiert die Anzahl der Sekunden (oder Modul) aus der Berechnung der Stunden übrig, die in Minuten konvertiert und "SS" enthält die Anzahl der Sekunden (oder Modul) übrig aus der Berechnung der Minuten.

3 Display die Zeit in Sekundenwert in Stunden, Minuten und Sekunden unter Verwendung von Visual Basic 6 Programm benötigten Format konvertiert. Beispielsweise wenn Sie die aktuelle Zeit mit Stunden, Minuten und Sekunden in Form anzeigen, schreiben Sie Folgendes in die Programmfunktion oben kurz vor der Zeile "End Sub":

Form1.Show

Print "Stunden =" + HR

Drucken "Minuten =" + MS

Drucken "Sekunden =" + SS