Рассчитать разницу во времени в VBA для Word

Question

Я хотел бы рассчитать разницу во времени между 2 ячейками и результатом, отображаемым в 3-й ячейке таблицы MS WORD TABLE. Например, ячейка D2 показывает 2pm и D1, показывающий 1pm и разницу в ячейке B2

Sub DetermineDuration() 
    Dim dtDuration As Date 

    dtDuration = DateDiff("h:mm:ss", D2, D1) 
    Range("B2").dtDuration 
End Sub 

Answer 1

Даты могут быть вычтены как числа:

Sub DetermineDuration() 
    Range("B2") = Range("D2") - Range("D1") 
End Sub 

Убедитесь, что формат ячейки B2, как Time наш вы будете просто закончите с числом с плавающей запятой.

Answer 2

Вы можете использовать функцию DateDiff для возврата определенного типа интервала, например часов, минут или секунд, без точности. Он возвращает регулярное число, а не значение времени. В параметре вы должны указать допустимое значение интервала. Вы можете узнать о функции и увидеть действительные значения интервала здесь MS Excel: How to use the DATEDIFF Function (VBA)

yyyy Year 
q Quarter 
m Month 
y Day of year 
d Day 
w Weekday 
ww Week 
h Hour 
n Minute 
s Second 

Как вы можете видеть, «ч: мм: сс» не является допустимым интервалом. Вы можете использовать этот формат, чтобы получить разницу в секундах:

DateDiff("s", Range("D2"), Range("D1")) 

Если вы хотите, чтобы получить значение времени, вы можете преобразовать с помощью функции TimeSerial.