Private Function zTime(iTimSec As Integer) As String
Dim sec, min, hr, i%, n%
'ermitteln der Stunden
hr = Int(iTimSec / 60 / 60)
For i = 0 To 24
 n = i * 24
 If n + 24 > hr Then Exit For
Next i
hr = hr - n
'ermitteln der Minuten
min = iTimSec / 60
For i = 0 To 59
 n = i * 60
 If n + 60 > min Then Exit For
Next i
min = min - n
'ermitteln der Sekunden
sec = CInt(Right(iTimSec, 3))
For i = 0 To 59
 n = i * 60
 If n + 60 > sec Then Exit For
Next i
sec = sec - n
'Daten runden
hr = CInt(hr)
min = Int(min)
sec = CInt(sec)
'ausgabe
zTime = hr & ":" & min & ":" & sec
End Function

Nsider