Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB4, VB5, VB6 | 07.07.04 |
Zeit-Differenz in dezimaler Darstellung II Mit dieser Funktion lässt sich eine Zeit-Differenz in dezimaler Darstellung ausgeben. | ||
Autor: Klaus Maraun | Bewertung: | Views: 11.135 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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")