вычислить разницу во времени в ошибке vba 13

Question

У меня есть код, в котором ячейка содержит предыдущее время. Если я запускаю программу, она запускается и вычисляет разницу между текущим временем и предыдущим временем (ячейка содержит) и помещает ее в другую ячейку. Я попытался, но это дает мне ошибку 13 и говорит, что несоответствие типа любезно помогает мне.

Cells(Row, 3).Value = DateDiff("h:mm:ss", Cells(Row, 2), Now()) 

Answer 1

детали DATEDIFF: https://msdn.microsoft.com/en-us/library/aa262712(v=vs.60).aspx

Sub Test() 
    Row = 1 
    'Difference just in days 
    Cells(Row, 3).Value = DateDiff("d", Cells(Row, 2), Now()) 
    'Time Difference. First set the format in cell. 
    Cells(Row, 4).NumberFormat = "hh:mm:ss" 
    '/calculate and update. Simple subtraction 
    Cells(Row, 4).Value2 = Cells(Row, 2).Value2 - Now() 
End Sub 

Answer 2

Вы можете создать собственный DateDiff, путем вычисления разности полных секунд. Затем выполните математику, чтобы получить количество часов (24 * 60 секунд), минут (60 секунд) и секунд.

После этого преобразуйте результаты в String и таким образом помещая значение в ячейку как «hh: mm: ss».

Код

Option Explicit 

Sub GetDiffInTime() 

Dim lRow As Long 
Dim DHours As Long, DMin As Long, DSec As Long, TotalSec As Long 

lRow = 2 
' get total difference in seconds 
TotalSec = DateDiff("s", Cells(lRow, 2), Now()) 

DHours = Application.WorksheetFunction.RoundDown(TotalSec/(24 * 60), 0) 
DMin = Application.WorksheetFunction.RoundDown((TotalSec - (DHours * (24 * 60)))/60, 0) 
DSec = TotalSec - (DHours * (24 * 60)) - (DMin * 60) 

' convert the values into strings, make the cell format look like "hh:mm:ss" 
Cells(lRow, 3) = CStr(DHours) & ":" & CStr(DMin) & ":" & CStr(DSec) 

End Sub