Sekunden nach hh:nn:ss umwandeln - made easy Eine einfache und schnelle Möglichkeit, Sekunden in das Zeitformat hh:nn:ss umzuwandeln, zeigt dieser Tipp.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  3.348
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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")