Как рассчитать количество дней или часов между двумя датами или временными метками в документе Word?

Обычно мы можем быстро и легко рассчитать количество дней между двумя датами в листе Excel, но пробовали ли вы когда-нибудь получить количество дней между двумя заданными датами в документе Word?

Расчёт разницы между двумя датами в документе Word с помощью кода VBA

Расчёт разницы между двумя значениями времени в документе Word с помощью кода VBA

---

Расчёт разницы между двумя датами в документе Word с помощью кода VBA

Чтобы рассчитать количество дней между двумя указанными датами, воспользуйтесь приведённым ниже кодом VBA. Выполните следующие действия:

1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Затем нажмите Вставка > Модуль и скопируйте приведённый ниже код в открывшийся пустой модуль:

Код VBA: Расчёт разницы между двумя датами

Sub CalculateDateDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xDay As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start date", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end date", "KuTools for Word", "")
   If (InStr(1, Str(xStartDate), ":") > 0) Or (InStr(1, Str(xEndDate), ":") > 0) Then
        MsgBox "please input current date", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xDay = DateDiff("d", xStartDate, xEndDate)
    MsgBox "There are " & xDay & " days left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код. Во всплывающих диалоговых окнах введите дату начала и конечную дату, которые хотите использовать (см. снимок экрана):

4. Затем нажмите кнопку OK, и вы получите желаемый результат (см. снимок экрана):

---

Расчёт разницы между двумя значениями времени в документе Word с помощью кода VBA

Вот ещё один код VBA, который поможет вам рассчитать разницу между двумя заданными значениями времени. Выполните следующие действия:

1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Затем щёлкните Вставка>Модульи скопируйте приведённый ниже код в открывшийся пустой модуль:

Код VBA: Расчёт разницы между двумя значениями времени

Sub CalculateTimeDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xTime As Long
    Dim xHour As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start time", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end time", "KuTools for Word", "")
    Debug.Print Str(xStartDate)
    If (Str(xStartDate) = " 0:00:00") Or (Str(xEndDate) = " 0:00:00") _
    Or (Str(xStartDate) = " 12:00:00 AM") Or (Str(xEndDate) = " 12:00:00 AM") Then
        MsgBox "please input the time", vbInformation, "KuTools for Excel"
        Exit Sub
    ElseIf xStartDate > xEndDate Then
        MsgBox " The start time is not larger than the end time!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xTime = DateDiff("s", xStartDate, xEndDate)
    xHour = xTime \ 3600
    xTime = xTime - xHour * 3600
    MsgBox "There are " & xHour & " hours " & xTime \ 60 & " minutes " & xTime - (xTime \ 60) * 60 _
            & " seconds left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код. Во всплывающих диалоговых окнах введите начальное и конечное время, по которым нужно рассчитать разницу (см. снимок экрана):

4. Затем нажмите кнопку OK, и разница во времени между двумя заданными значениями будет рассчитана и отображена, как показано на следующем снимке экрана: