VBA: Müssen Zeitunterschied zwischen Zeiten von verschiedenen Daten berechnen

Ich brauche Hilfe bei der Berechnung der Zeitdifferenz zwischen Zeiten aus zwei verschiedenen Daten.VBA: Müssen Zeitunterschied zwischen Zeiten von verschiedenen Daten berechnen

Cell(1,1) contains: 19/06/2016 01:00:00 
Cell(1,2) contains: 20/06/2016 02:30:00

sollte die Antwort sein: 25:30:00 Im Anschluss ist mein Code:

Dim a As Date, b As Date  
a = Cells(1, 1).Value 
b = Cells(1, 2).Value 
Cells(1, 3).Value = TimeValue(b) - TimeValue(a)

Aber dieser Code gibt mir 1:30:00

Quelle

2016-06-25 ProjectX

Mögliches Duplikat von [Wie wird der Zeitunterschied in VBA berechnet?] (Http://stackoverflow.com/questions/28475288/how-to-calculate-time-difference-in-vba) – BitAccesser

'TIMEVALUE' Funktion Gibt die Dezimalzahl zurück der Zeit, die durch eine Textzeichenfolge dargestellt wird. Die Dezimalzahl ist ein Wert im Bereich von 0 (null) bis 0.99988426, der die Zeiten von 0:00:00 (12:00:00 Uhr) bis 23:59:59 (11:59:59 Uhr) darstellt. Daher ist die Verwendung von 'TimeValue (b) - TimeValue (a)' nicht korrekt. Ich denke @ Garys Student-Lösung ist der richtige Ansatz. – skkakkar

subtrahieren einfach:

Sub luxation() 
    Dim a As Date, b As Date 
    a = Cells(1, 1).Value 
    b = Cells(1, 2).Value 
    Cells(1, 3).Value = b - a 
    Cells(1, 3).NumberFormat = "[hh]:mm:ss" 
End Sub

Quelle

2016-06-25 12:51:16

VBA: Müssen Zeitunterschied zwischen Zeiten von verschiedenen Daten berechnen

Antwort

Verwandte Themen