Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izračunati dneve ali uro med dvema datumoma ali časi V Wordu dokumentu?

Običajno lahko hitro in enostavno izračunamo število dni med dvema datumoma v Excelovem delovnem listu, ali ste kdaj poskusili, da dobite število dni med dvema datumoma v dokumentu Word?

Izračunajte razliko med dvema datumoma v dokumentu Word s kodo VBA

Izračunajte razliko med dvema kratoma v dokumentu Word s kodo VBA


Izračunajte razliko med dvema datumoma v dokumentu Word s kodo VBA

Če želite izračunati število dni med dvema datumoma, lahko spodnja VBA koda naredi uslugo, storite tako:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprt prazen modul:

VBA koda: izračunajte razliko med dvema datumoma

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. In potem, pritisnite F5 Če želite zagnati to kodo, v zaporednih pogovornih oknih vnesite začetni datum in končni datum, ki ga želite uporabiti, glejte sliko zaslona:

doc izračuna dan 1

4. Nato kliknite OK gumb in dobite želeni rezultat, si oglejte posnetek zaslona:

doc izračuna dan 2


Izračunajte razliko med dvema kratoma v dokumentu Word s kodo VBA

Tukaj je še ena VBA koda, ki vam lahko pomaga izračunati razliko med dvema določenim časom. Prosimo, naredite to:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprt prazen modul:

VBA koda: izračunajte razliko med dvakratnim

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. In potem, pritisnite F5 ključ za zagon te kode v zaporednih pogovornih oknih vnesite čas začetka in konca, ki ga želite uporabiti za izračun razlike, glejte sliko zaslona:

doc izračuna dan 3

4. Nato kliknite OK gumb in časovna razlika med dvema določenim časom je bila izračunana in prikazana na naslednji sliki:

doc izračuna dan 4

Priporočena orodja za produktivnost Worda

shot kutools beseda kutools zavihek 1180x121
shot kutools beseda kutools plus zavihek 1180x120

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.