Feedback

Sekunden in hh:mm:ss umwandeln

VB - Tim Hartwig Juli 7, 2006
3 Ratings 2.3333/5

Sprache: VB

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
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 Sekunden Zeit

Alte URL: /snippet/sekunden-in-hhmmss-umwandeln/143

1 Kommentar

  1. So geht’s auch:

    [code]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)[/code]