Zeitdifferenz errechnen
07.02.2005 18:02:50
Peter Feustel
bin ich blind oder geht das nicht besser?
In D1 steht z. B. 07.02.2005 09:25
in D2 steht z. B. 07.02.2005 17:35
nun soll die Differenz-Zeit ermittelt werden, was auch tagesübergreifend sein kann.
So geht es, aber geht es auch einfacher?
Sub Zeitdifferenz()
Dim AnzMin As Double
Dim AnzStd As Double
AnzMin = DateDiff("n", Cells(1, 4).Value, Cells(2, 4).Value) ' Min errechnen
AnzStd = CInt(AnzMin / 60) ' Std errechnen
Cells(2, 5).Value = Format(AnzStd & ":" & AnzMin - (AnzStd * 60), "hh:mm")
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Gruß Peter