Zeitdiff. in h & min
03.01.2005 11:42:19
Peter
wer kann helfen?
Ich versuche die Zeitdifferenz zwischen zwei Zeiten in Stunden und Minuten
zu errechnen und anzuzeigen. Funktioniert leider nicht.
Wenn möglich per VBA oder wenn es sowas gibt unter Einbindung
einer Funktion.
Peter
Sub StundenMinuten()
'z.B. Zeitsoll=17:05 / Zeitist=18:01
Dim ZeitSoll, ZeitIst
Dim DiffMin, DiffStu, RestMin
ZeitSoll = Cells(1, 8).Value
ZeitIst = Cells(1, 9).Value
DiffStu = DateDiff("h", ZeitSoll, ZeitIst)
DiffMin = DateDiff("n", ZeitSoll, ZeitIst)
RestMin = DiffMin - (DiffStu * 60)
MsgBox "h= " & DiffStu & Chr(10) & _
"min= " & DiffMin & Chr(10) & _
"Restminuten= " & RestMin
End Sub
Anzeige