Jak vypočítat dny nebo hodiny mezi dvěma daty nebo časy v dokumentu Word?

Normálně můžeme rychle a snadno vypočítat počet dní mezi dvěma daty v listu aplikace Excel, ale zkusili jste někdy v dokumentu Word zjistit počet dní mezi dvěma danými daty?

Vypočítejte rozdíl mezi dvěma daty v dokumentu Word pomocí kódu VBA

Vypočítejte rozdíl mezi dvakrát v dokumentu Word pomocí kódu VBA

Vypočítejte rozdíl mezi dvěma daty v dokumentu Word pomocí kódu VBA

Chcete-li vypočítat počet dní mezi dvěma danými daty, níže uvedený kód VBA vám může udělat laskavost, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:

Kód VBA: Vypočítejte rozdíl mezi dvěma daty

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. A pak stiskněte F5 klíč ke spuštění tohoto kódu, v po sobě jdoucích dialogových oknech zadejte datum zahájení a datum ukončení, které chcete použít, viz screenshot:

4. Potom klepněte na tlačítko OK tlačítko a získáte požadovaný výsledek, viz screenshot:

Vypočítejte rozdíl mezi dvakrát v dokumentu Word pomocí kódu VBA

Zde je další kód VBA, který vám pomůže vypočítat rozdíl mezi dvěma danými časy, udělejte to takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:

Kód VBA: Vypočítejte rozdíl mezi dvěma časy

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. A pak stiskněte F5 klíč ke spuštění tohoto kódu, v po sobě jdoucích dialogových oknech zadejte čas zahájení a čas ukončení, který chcete použít k výpočtu rozdílu, viz screenshot:

4. Potom klepněte na tlačítko OK tlačítko a časový rozdíl mezi dvěma danými časy byl vypočítán a zobrazen jako následující zobrazený snímek obrazovky:

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

✏ Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????

Stažení zdarma     Kup nyní     Další informace o Kutools pro Word

 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word

• 🤖 Funkce AI Kutools: Generovat, Přepsat, Shrnout, přeložit Dokumenty / Získejte rychlé odpovědi / Polský dokument (zachovat formát)
• 📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Dávkový převod do PDF
• ✏ Úprava obsahu: Dávkové hledání a nahrazení / Změnit velikost všech obrázků
• 🧹 Čištění bez námahy: Odstraňte další mezery / Odstraňte konce sekcí
• ➕ Kreativní vložky: Vložte tisíce oddělovačů / Vložit zaškrtávací políčka / Vytvářejte QR kódy

Stažení zdarma Kup nyní Zjistěte více o Kutools