Hoe berekent u het aantal dagen of uren tussen twee datums of tijdstippen in een Word-document?

Normaal gesproken berekent u het aantal dagen tussen twee datums snel en eenvoudig in een Excel-werkblad, maar heeft u ooit geprobeerd het aantal dagen tussen twee opgegeven datums in een Word-document te bepalen?

Bereken het verschil tussen twee datums in een Word-document met VBA-code

Bereken het verschil tussen twee tijdstippen in een Word-document met VBA-code

---

Bereken het verschil tussen twee datums in een Word-document met VBA-code

Om het aantal dagen tussen twee opgegeven datums te berekenen, helpt de onderstaande VBA-code u snel en eenvoudig. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik daarna op Invoegen > Module en plak de onderstaande code in de lege module die verschijnt:

VBA-code: Bereken het verschil tussen twee datums

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. Druk daarna op de toets F5 om deze code uit te voeren. Voer in de daaropvolgende dialoogvensters de startdatum en einddatum in die u wilt gebruiken; zie schermafbeelding:

4. Klik vervolgens op de knop OK en u krijgt het gewenste resultaat. Zie de schermafbeelding:

---

Bereken het verschil tussen twee tijdstippen in een Word-document met VBA-code

Hier is nog een VBA-code om het verschil tussen twee opgegeven tijdstippen te berekenen. Volg deze stappen:

1. Houd de toetsen ALT + F11ingedrukt om het venster Microsoft Visual Basic for Applicationste openen.

2. Klik vervolgens op Invoegen>Module, en kopieer en plak de onderstaande code in de geopende lege module:

VBA-code: Bereken het verschil tussen twee tijdstippen

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. Druk daarna op de toets F5 om deze code uit te voeren. Voer in de opeenvolgende dialoogvensters het begintijdstip en eindtijdstip in waarmee u het verschil wilt berekenen; zie schermafbeelding:

4. Klik daarna op de knop OK en het tijdsverschil tussen de twee opgegeven tijdstippen wordt direct berekend en weergegeven, zoals op de volgende schermafbeelding: