Hallo...
Habe folgende Funktion in MS Access
Eine Zeit liegt in Millisekunden vor....
Nun sollte diese Zeit in Std:min:sek,Millisekunden umgerechnet werden...
Es scheitert bei mir in der Zeile (Umrechnung von Minuten)...
Die wird so angezeigt 01:63:20,2 Die Minuten müssten auf 03 sein... Min = Int(Milsec / 60000)
Habe folgende Funktion in MS Access
Eine Zeit liegt in Millisekunden vor....
Nun sollte diese Zeit in Std:min:sek,Millisekunden umgerechnet werden...
Es scheitert bei mir in der Zeile (Umrechnung von Minuten)...
Die wird so angezeigt 01:63:20,2 Die Minuten müssten auf 03 sein... Min = Int(Milsec / 60000)
Code:
Function Zeit_hhmmss0(Milsec As Double) As String
Dim Std As Long
Dim Min As Long
Dim Sec As Long
Dim Zeitmessung As String
Std = Int(Milsec / 3600000)
Min = Int(Milsec / 60000)
Sec = Int((Milsec - (Min * 60000)) / 1000)
Milsec = Milsec - (Min * 60000) - (Sec * 1000)
Zeit_hhmmss0 = Format$(Std, "00") & ":" & Format$(Min, "00") & ":" & Format$(Sec, "00") & "." & Format$(Milsec, "0")
End Function