Millisekunden in Sekunden, Minuten, Stunden umrechnen

07/01/2012 - 20:42 von Hermie | Report spam
Hallo!

Kann jemand helfen? Irgendwas mache ich hier noch verkehrt, und ich
komme grade nicht drauf, was.

Vielen Dank.

Private Sub Form_Load()

Dim lSec&
Dim lMin&
Dim lHour&

MillisecondsToSecondsMinutesHours 10000000, lSec, lMin, lHour

End Sub

Public Function MillisecondsToSecondsMinutesHours(ByVal uMS As Long,
ByRef uSeconds As Long, ByRef uMinutes As Long, ByRef uHours As Long)

Dim lSec&
Dim lMin&
Dim lHrs&

lSec = (uMS \ 1000) Mod 60
lMin = (lSec \ 60) Mod 60
lHrs = (lMin \ 60) Mod 24

uSeconds = lSec
uMinutes = lMin
uHours = lHrs

End Function
 

Lesen sie die antworten

#1 Jens Müller
08/01/2012 - 10:34 | Warnen spam
Hallo,

Kann jemand helfen? Irgendwas mache ich hier noch verkehrt, und ich komme
grade nicht drauf, was.

lSec = (uMS \ 1000) Mod 60
lMin = (lSec \ 60) Mod 60
lHrs = (lMin \ 60) Mod 24



Wenn du ISec mod 60 machst, sind diese nie grösser als 60. Ein
Weiterverwenden in der Berechnung von IMin ist also nicht sinnvoll.

Eine Möglichkeit:
lSec = (uMS \ 1000)
lMin = (lSec \ 60)
lHrs = (lMin \ 60) Mod 24

uHours = lHrs
uSeconds = ISec Mod 60
uMinutes = lmin Mod 60

Jens

Ähnliche fragen