Hur beräknar man dagar eller timmar mellan två datum eller tider i Word-dokument?

Normalt kan vi snabbt och enkelt beräkna antalet dagar mellan två datum i Excel-kalkylbladet, men har du någonsin försökt få antalet dagar mellan två givna datum i ett Word-dokument?

Beräkna skillnaden mellan två datum i Word-dokument med VBA-kod

Beräkna skillnaden mellan två gånger i Word-dokument med VBA-kod

Beräkna skillnaden mellan två datum i Word-dokument med VBA-kod

För att beräkna antalet dagar mellan två angivna datum kan nedanstående VBA-kod göra dig en tjänst, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen:

VBA-kod: Beräkna skillnaden mellan två datum

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. Och tryck sedan på F5 för att köra den här koden, i de efterföljande dialogrutorna, ange startdatum och slutdatum som du vill använda, se skärmdump:

4. Klicka sedan OK knappen, och du får det resultat du vill ha, se skärmdump:

Beräkna skillnaden mellan två gånger i Word-dokument med VBA-kod

Här är en annan VBA-kod som kan hjälpa dig att beräkna skillnaden mellan två givna tider, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen:

VBA-kod: Beräkna skillnaden mellan två gånger

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. Och tryck sedan på F5 för att köra den här koden, i de efterföljande dialogrutorna, ange starttid och sluttid som du vill använda för att beräkna skillnaden, se skärmdump:

4. Klicka sedan OK -knappen och tidsskillnaden mellan två givna tider har beräknats och visas som följande skärmdump som visas:

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk (bevara format) / Super Translate (Bevara format) / AI-redaktion / AI korrekturläsning...

📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF...

✏ Innehållsredigering: Batchsök och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till ta bort grupp...

➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Flera bilder / Upptäck mer i Insert grupp...

🔍 Precisionsval: Precisera Specifika sidor / Bord / Former / Rubrik stycken / Förbättra navigering med mer Välja pass...

⭐ Stjärnförbättringar: Navigera till valfri plats / Auto-infoga upprepad text / Växla mellan dokumentfönster / 11 Konvertering verktyg...

👉 Vill du prova dessa funktioner? Ladda ner Kutools för Word nu! 🚀

Gratis nedladdning     Köp nu     Lär dig mer om Kutools för Word

 

Bästa kontorsproduktivitetsverktyg

Kutools för Word - 100+ verktyg för Word

• 🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk / Super Translate / AI-redaktion / AI korrekturläsning
• 📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Batchkonvertera till PDF
• ✏ Innehållsredigering: Batch Hitta och ersätt / Ändra storlek på alla bilder
• 🧹 Enkel rengöring: Ta bort extra utrymmen / Ta bort sektionsbrott
• ➕ Kreativa inlägg: Sätt i tusen avskiljare / Infoga kryssrutor / Skapa QR-koder

Gratis nedladdning Köp nu Lär dig mer om Kutools