Ich habe eine Funktion gebraucht, die Millisekunden in ein lesbareres Format umwandelt, herrausgekommen ist diese Funktion.
Vielleicht kann sie ja jemand gebrauchen
Spoiler anzeigen
; #FUNCTION#
;===============================================================================
;
; Name...........: _MStoTimeformat
; Description ...: Wandelt Millisekunden in das Format HH:MM:SS um
; Syntax.........: _MStoTimeformat($MStTf_MS)
; Parameters ....: $MStTf_MS - Zeit in Millisekunden (z.B vom TimerDiff() zurückgegeben
; Return values .: Success - Gibt die Millisekunden im Format HH:MM:SS zurück
; Failure - Returns 0 and Sets @Error:
; |1 - $MStTf_MS ist keine Zahl
; Author ........: TheLuBu ([email='LuBu@veytal.com'][/email])
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
;
;==========================================================================================
Func _MStoTimeformat($MStTf_MS)
If not IsNumber($MStTf_MS) Then Return SetError(1,0,0)
Local $MStTf_vorzeichen = "", $MStTf_Endzeit, $MStTf_Stunden, $MStTf_Minuten, $MStTf_Sekunden, $MStTf_sret
If $MStTf_MS < 0 Then
$MStTf_MS = Abs($MStTf_MS)
$MStTf_vorzeichen = "-"
EndIf
$MStTf_Endzeit = $MStTf_MS / 1000
$MStTf_Stunden = $MStTf_Endzeit / 3600
$MStTf_Stunden = Int($MStTf_Stunden)
$MStTf_Minuten = (($MStTf_Endzeit / 60) - ($MStTf_Stunden * 60))
$MStTf_Minuten = Int($MStTf_Minuten)
$MStTf_Sekunden = ($MStTf_Endzeit - ($MStTf_Minuten * 60) - ($MStTf_Stunden * 3600))
$MStTf_Sekunden = Int($MStTf_Sekunden)
If $MStTf_Stunden < 10 Then $MStTf_Stunden = "0" & $MStTf_Stunden
If $MStTf_Minuten < 10 Then $MStTf_Minuten = "0" & $MStTf_Minuten
If $MStTf_Sekunden < 10 Then $MStTf_Sekunden = "0" & $MStTf_Sekunden
$MStTf_sret = $MStTf_vorzeichen & $MStTf_Stunden & ":" & $MStTf_Minuten & ":" & $MStTf_Sekunden
Return $MStTf_sret
EndFunc ;==>MStoTimeformat