Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB6 | 23.12.00 |
Zahl nach hh:mm:ss konvertieren Mit der nachfolgenden Routine kann eine beliebige Ganzzahl in das Format hh:mm:ss konvertiert werden. Die Umrechnung ist immer dann sinnvoll, wenn S... | ||
Autor: Michael Becker | Bewertung: | Views: 17.988 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit der nachfolgenden Routine kann eine beliebige Ganzzahl in das Format hh:mm:ss konvertiert werden. Die Umrechnung ist immer dann sinnvoll, wenn Sie die benötigte Zeit für eine bestimmte Aktion stoppen und dann anzeigen möchten.
Public Function DisplayTime(ByVal Sek As Long, _ Optional ByVal Ausgabe As String = "hh:nn:ss") Dim t As Variant ' Falls anstelle nn mm im Ausgabeformat ' angegeben wurde Ausgabe = Replace(Ausgabe, "mm", "nn") Dim h As Long Dim m As Long Dim s As Long m = Int(Sek / 60) h = Int(m / 60): m = m Mod 60 s = Sek - (h * 3600) - (m * 60) t = TimeSerial(h, m, s) DisplayTime = Format$(t, Ausgabe) End Function
Übergeben Sie der Funktion DisplayTime die Anzahl Sekunden und optional das gewünschte Ausgabeformat. Wird für Ausgabe nichts angegeben, so erfolgt die Ausgabe im Format hh:mm:ss.
Beispiele
' Nur Minuten und Sekunden Debug.Print DisplayTime(417, "nn:ss") ' 06:57 ' Nur Stunden und Minuten Debug.Print DisplayTime(47124, "hh:nn") ' 13:05 ' Stunden, Minuten und Sekunden Debug.Print DisplayTime(7259) ' 02:00:59