Minuten in Stunden umrechnen?

[K. Michalski]

Hallo,
mithilfe von "DateDiff"-Funktion kann ich die Differenz zwischen zwei
Datums- bzw. Uhrzeit-Werten berechnen. Das Ergebnis wird z.B. in Minuten
geliefert. Wie kann ich dann die so errechnete Minutenzahl in Stunden oder,
bei entsprechendem Wert, in Tage umrechenen?
Kann mir da jemand helfen?
Schöner Gruß
Christoph

[Helmut Weber]

Hallo Christoph, (K. Michalski ?)
ganzer Name ist netter und man findet auch leichter wieder was,
bei dieser Frage bin ich schon ein wenig erschrocken,
aber vielleicht suchst Du ja eine professionelle Lösung,
die Du anpassen möchtest:
Hank Marquis and Eric Smith: "A Visual Basic 6 Programmer's Toolkit"
---
'
' mode = True = from seconds to days, hours, min
' mode = False = from days, hours, mins to total seconds
'
Public Sub ParseTime(TotalSecs As Long, Days As Long, Hours As Long, _
Mins As Long, Secs As Long, mode As Boolean)
Dim worktime As Long
If mode = True Then ' from seconds to days, hours, min
worktime = TotalSecs
Days = worktime \ 86400
worktime = worktime - (Days * 86400)
Hours = worktime \ 3600
worktime = worktime - (CLng(Hours) * 3600)
Mins = worktime \ 60
worktime = worktime - (CLng(Mins) * 60)
Secs = worktime
Else ' from days, hours, mins to total seconds
TotalSecs = Days * 86400
TotalSecs = TotalSecs + (Hours * 3600)
TotalSecs = TotalSecs + (Mins * 60)
TotalSecs = TotalSecs + Secs
End If
End Sub

Public Function FormatTime(ByVal lSeconds As Long) As String
Dim Days As Long
Dim Hours As Long
Dim Minutes As Long
Dim Seconds As Long
Dim tmp As String
ParseTime lSeconds, Days, Hours, Minutes, Seconds, True
If Days > 0 Then tmp = Days & " " & IIf(Days > 1, "Days", "Day")
If Hours > 0 Then tmp = tmp & _
IIf(Len(tmp) > 0, ", ", "") & Hours & " " & IIf(Hours > 1,
"Hours", "Hour")
If Minutes > 0 Then tmp = tmp & _
IIf(Len(tmp) > 0, ", ", "") & Minutes & " " & IIf(Minutes > 1,
"Minutes", "Minute")
If Seconds > 0 Then tmp = tmp & _
IIf(Len(tmp) > 0, ", ", "") & Seconds & " " & IIf(Seconds > 1,
"Seconds", "Second")
FormatTime = tmp
End Function

Sub test()
MsgBox FormatTime(123456789) ' Sekunden!!!
End Sub
---
Gruss
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

[K. Michalski]

Danek für den Tipp! Es funktioniert!

"Helmut Weber" <elmkqzn...@mailinator.com> schrieb im Newsbeitrag
news:r1tnk0hr53k67ihtu...@4ax.com...