VBA: DateDiff funktioniert nicht

Question

Ich habe eine Excel-Datei, die automatisch Einträge Zeitstempel, wie sie hinzugefügt werden. Ich möchte ein Skript, das den Zeitunterschied in Minuten zwischen dem ersten und letzten Eintrag findet. Das ist, was ich bisher herausgefunden habe.

Sub Duration() 

Dim lRow As Long Dim lValue Dim fValue Dim Duration As Long, n As Integer 

'Find the last non-blank cell in column A(1) 
lRow = Cells(Rows.Count, 1).End(xlUp).Row 
lValue = Cells(lRow, 5).Value 
MsgBox (lValue) 
fValue = Cells(5, 5).Value 
MsgBox (fValue) 
Duration = DateDiff("n", "fValue", "lValue") 
MsgBox (Duration) 

Cells(3, 5) = Duration 

End Sub 

Answer 1

DateDiff dauert 3 Argumente:

DATEDIFF (datepart , startdate , enddate) 

Alle Argumente können als Variablen als auch gegeben werden. In Ihrem Fall versuchen, mit:

Duration = DateDiff("n", fValue, lValue) 

Wenn Sie es schaffen mit weniger Linien, Sie auch für gehen kann:

Duration = DateDiff("n", Cells(5, 5).Value, Cells(lRow, 5).Value) 

Einzelheiten finden Sie https://msdn.microsoft.com/en-us/library/ms189794.aspx.