| Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB6 | 19.10.04 |
 Sekunden nach hh:nn:ss umwandeln - made easyEine einfache und schnelle Möglichkeit, Sekunden in das Zeitformat hh:nn:ss umzuwandeln, zeigt dieser Tipp. | ||
Autor:  Dieter Otter | Bewertung:   | Views: 12.792 |
| www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
Mal eben schnell Sekunden in das Zeitformat hh:nn:ss umwandeln - seit VB6 kein Problem. Mit Hilfe der DateAdd-Funktion ist das Ganze ein reiner Einzeiler!
sTime = Format$(DateAdd("s", nSeconds, CDate("00:00:00")))
Und das Ganze verpacken wir jetzt natürlich in eine Funktion:
' Sekunden nach hh:mm:ss umrechnen Public Function FormatSeconds(ByVal nSeconds As Long, _ Optional ByVal sFormat As String = "hh:nn:ss") As String ' Falls anstelle nn mm im Ausgabeformat angegeben wurde sFormat = Replace(sFormat, "mm", "nn") FormatSeconds = Format$(DateAdd("s", nSeconds, CDate("00:00:00")), sFormat) End Function
Die Funktion wird wie folgt aufgerufen:
' Sekunden nach hh:mm:ss umwandeln MsgBox FormatSeconds(1562)
' Sekunden nach hh:mm umwandeln MsgBox FormatSeconds(1562, "hh:mm")
