Как да изчисля дни или часове между две дати или часове в документ на Word?

Автор: Xiaoyang Последна промяна: 2018-10-22

Обикновено можем да изчислим броя на дните между две дати в работния лист на 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 ключ, за да стартирате този код, в последователните диалогови прозорци въведете началната и крайната дата, които искате да използвате, вижте екранната снимка:

doc изчислява дни 1

4, След това кликнете върху OK и ще получите резултата, който искате, вижте екранната снимка:

doc изчислява дни 2

Изчислете разликата между две времена в документ на 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 за да стартирате този код, в последователните диалогови прозорци въведете началния и крайния час, които искате да използвате за изчисляване на разликата, вижте екранната снимка:

doc изчислява дни 3