Hoe dagen of uren tussen twee datums of tijden in een Word-document te berekenen?

Normaal gesproken kunnen we het aantal dagen tussen twee datums snel en gemakkelijk berekenen in een Excel-werkblad, maar hebt u ooit geprobeerd het aantal dagen tussen twee gegeven datums in een Word-document te krijgen?

Verschil tussen twee datums in Word-document berekenen met VBA-code

Verschil tussen twee tijden in Word-document berekenen met VBA-code

Verschil tussen twee datums in Word-document berekenen met VBA-code

Om het aantal dagen tussen twee gegeven datums te berekenen, kan de onderstaande VBA-code u helpen. Doe het volgende:

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

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

VBA-code: Verschil tussen twee datums berekenen

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 vervolgens op de F5-toets om deze code uit te voeren. Voer in de opeenvolgende dialoogvensters de begindatum en einddatum in die u wilt gebruiken, zie screenshot:

4. Klik vervolgens op de knop OK, en u krijgt het resultaat dat u wilt, zie screenshot:

Verschil tussen twee tijden in Word-document berekenen met VBA-code

Hier is nog een andere VBA-code die u kan helpen om het verschil tussen twee gegeven tijden te berekenen. Doe het volgende:

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

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

VBA-code: Verschil tussen twee tijden berekenen

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 vervolgens op de F5-toets om deze code uit te voeren. Voer in de opeenvolgende dialoogvensters de begintijd en eindtijd in die u wilt gebruiken om het verschil te berekenen, zie screenshot:

4. Klik vervolgens op de knop OK, en het tijdsverschil tussen twee gegeven tijden is berekend en wordt weergegeven zoals in de volgende screenshot te zien is:

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...

👉 Wilt u deze functies uitproberen? Download Kutools voor Word nu! 🚀

Gratis downloaden     Nu kopen     Meer informatie over Kutools voor Word

 

Beste productiviteitstools voor kantoor

Kutools voor Word – 100+ tools voor Word

• 🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools / Super Vertalen / AI Redactie / AI Proeflezen
• 📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Batch converteren naar PDF
• ✏ Inhoud bewerken: Batch Zoeken en Vervangen / Alle afbeeldingen formaat wijzigen
• 🧹 Moeiteloos opschonen: Verwijder extra spaties / Verwijder sectie-eindes
• ➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / Voeg selectievakjes toe / Maak QR-codes

Gratis downloaden Nu kopen Meer informatie over Kutools