Feedback

VB - Sekunden in hh:mm:ss umwandeln

Veröffentlicht von am 07.07.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 01.09.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!