Zeitdifferenz in Minuten und Sekunden darstellen

Es ist unter VBA ohne weiteres möglich, eine Zeitdifferenz darzustellen. Wenn ich einen Zeitwert vom anderen subtrahiere, bekomme ich die vergangene Zeit schön dargestellt.

Dim T1 As Date
Dim T2 As Date
T1 = "15:04:22"
T2 = "15:07:32"
Debug.Print T2 - T1

Ergebnis: 2,19907407407405E-03

Schick, oder? :(

Damit das auch für Menschen halbwegs lesbar ist, genügt es schon, die letzte Zeile anzupassen:

Debug.Print Format(T2 - T1, "hh:mm:ss")

Jetzt kommt, wie man es eigentlich erwartet, folgendes raus: 00:03:10

Na bitte.

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>