VBA: DateDiff не работает

Question

У меня есть файл excel, который автоматически помещает записи по мере их добавления. Мне нужен сценарий, который находит разницу во времени в минутах между первой и последней записью. Это то, к чему я придумал.

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 принимает 3 аргумента:

DATEDIFF (datepart , startdate , enddate) 

Все аргументы могут быть заданы как переменные, а также. В вашем случае, попробуйте:

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

Если вы хотите сделать это с меньшим количеством строк, вы можете даже пойти на:

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

Для получения дополнительной информации см https://msdn.microsoft.com/en-us/library/ms189794.aspx.