Hvordan beregner man dage eller timer mellem to datoer eller tidspunkter i Word-dokument?

Normalt kan vi hurtigt og nemt beregne antallet af dage mellem to datoer i Excel-regneark, men har du nogensinde prøvet at få antallet af dage mellem to givne datoer i et Word-dokument?

Beregn forskellen mellem to datoer i Word-dokument med VBA-kode

Beregn forskellen mellem to gange i Word-dokument med VBA-kode

Beregn forskellen mellem to datoer i Word-dokument med VBA-kode

For at beregne antallet af dage mellem to givne datoer kan nedenstående VBA-kode gøre dig en tjeneste, gør venligst som denne:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbne blanke modul:

VBA-kode: Beregn forskellen mellem to datoer

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. Og tryk derefter på F5 nøgle til at køre denne kode, i de efterfølgende dialogbokse skal du indtaste startdatoen og slutdatoen, som du vil bruge, se skærmbillede:

4. Klik derefter på OK knappen, og du får det ønskede resultat, se skærmbillede:

Beregn forskellen mellem to gange i Word-dokument med VBA-kode

Her er en anden VBA-kode, der kan hjælpe dig med at beregne forskellen mellem to givne tidspunkter, gør venligst som denne:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbne blanke modul:

VBA-kode: Beregn forskellen mellem to gange

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. Og tryk derefter på F5 nøgle til at køre denne kode, i de efterfølgende dialogbokse skal du indtaste starttidspunktet og sluttiden, som du vil bruge til at beregne forskellen, se skærmbillede:

4. Klik derefter på OK knappen, og tidsforskellen mellem to givne tider er beregnet og vist som følgende skærmbillede vist:

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-funktioner: Generer indhold / Omskriv tekst / Dokument Q&A / Få hurtige svar / Oversæt dokumenter / Polsk dokument (bevar format)...

📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF...

✏ Indholdsredigering: Batch Find og Erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til Fjern gruppe...

➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Flere billeder / Oplev mere i indsatte gruppe...

???? Præcisionsvalg: Find ud af Specifikke sider / tabeller / Former / Overskriftsparagraffer / Forbedre navigation med mere Type funktioner...

⭐ Stjerneforbedringer: Naviger til enhver placering / Auto-indsæt gentagen tekst / Skift mellem dokumentvinduer / 11 Konvertering Værktøjer...

???? Vil du prøve disse funktioner? Download Kutools til Word nu! 🚀

Gratis download     Køb Nu     Lær mere om Kutools for Word

 

Bedste kontorproduktivitetsværktøjer

Kutools for Word - 100+ værktøjer til Word

• 🤖 Kutools AI-funktioner: Generer, Omskriv, Opsummer, oversætte Dokumenter / Få hurtige svar / Polsk dokument (bevar format)
• 📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Batch Konverter til PDF
• ✏ Indholdsredigering: Batch Find og erstat / Ændr størrelse på alle billeder
• 🧹 Ubesværet rengøring: Fjern ekstra pladser / Fjern sektionsbrud
• ➕ Kreative indlæg: Indsæt tusinde separatorer / Indsæt afkrydsningsfelter / Opret QR-koder

Gratis download Køb Nu Lær mere om Kutools