Zeit-Differenz in dezimaler Darstellung II Mit dieser Funktion lässt sich eine Zeit-Differenz in dezimaler Darstellung ausgeben.
Autor:   Klaus Maraun	Bewertung:     [ Jetzt bewerten ]	Views:  11.737
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 8 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Vor kurzem haben wir Ihnen gezeigt, wie man eine Zeit-Differenz nicht im normalen Uhrzeit-Format, wie bspw. 01:45 ausgibt, sondern in dezimaler Form, wie bspw. 1,75 Stunden.
 Zeit-Differenz in dezimaler Darstellung ausgeben

Heute zeigen wir Ihnen, wie sich das Ganze noch schneller und vor allem mit weniger Codezeilen erledigen lässt. Hierzu werden die Zeitangaben einfach in Double-Werte umgewandelt und voneinander abgezogen. Das Ganze hat dann auch den Vorteil, dass die Zeit-Differenz bei Datum-/Uhrzeitangaben nicht auf 24 Stunden begrenzt ist!

Dim sTime1 As Date
Dim sTime2 As Date
 
sTime1 = "07.06.04 04:30"
sTime2 = "07.06.04 06:15" 
 
' Dieser Einzeiler berechnet die Zeitdifferenz für Zeitangaben, 
' auch über 24 Stunden hinaus
MsgBox Format$((CDbl(sTime2) - CDbl(sTime1)) * 24, "0.00")