VB - Sekunden in hh:mm:ss umwandeln

Veröffentlicht von Tim Hartwig am 7/7/2006

(3 Bewertungen)

Wie schon im Titel, aus Sekunden wird hh:mm:ss

Public Function SecToTime(ByVal Seconds As Long, Optional ByRef rHour As Long = 0, Optional ByRef rMinute As Long = 0, Optional ByRef rSecond As Long = 0) As String
    rHour = (Seconds \ 3600)
    rMinute = (Seconds - (rHour * 3600)) \ 60
    rSecond = (Seconds - (rHour * 3600) - (rMinute * 60))
    SecToTime = Format(rHour, "00") & ":" & Format(rMinute, "00") & ":" & Format(rSecond, "00")
End Function

Abgelegt unter Zeit, Sekunden.

1 Kommentare zum Snippet

us schrieb am 9/1/2009:

So geht's auch:

Dim m_Seconds As Integer =  5000
Dim m_TimeSpan As TimeSpan =  New TimeSpan(0,0,m_Seconds)
Dim str As String =  String.Format("{0:00}:{1:00}:{2:00}",TimeSpan .Hours,TimeSpan .Minutes,TimeSpan .Seconds)

Logge dich ein, um hier zu kommentieren!

VB - Sekunden in hh:mm:ss umwandeln

1 Kommentare zum Snippet

Ähnliche Snippets

Suche

Letzte Kommentare