Kako izračunati dneve ali ure med dvema datumoma ali časoma v dokumentu Word?
Običajno lahko hitro in enostavno izračunamo število dni med dvema datumoma na Excelovem delovnem listu, toda, ali ste že kdaj poskusili dobiti število dni med dvema datumoma v dokumentu Word?
Izračunajte razliko med dvema datumoma v dokumentu Word s kodo VBA
Izračunajte razliko med dvakrat v Wordovem dokumentu s kodo VBA
Izračunajte razliko med dvema datumoma v dokumentu Word s kodo VBA
Če želite izračunati število dni med dvema datumoma, vam lahko spodnja koda VBA naredi uslugo, storite tako:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:
Koda VBA: 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 nato pritisnite F5 za zagon te kode v zaporedna pogovorna okna vnesite začetni in končni datum, ki ga želite uporabiti, glejte posnetek zaslona:
4. Nato kliknite OK in dobili boste želeni rezultat, glejte posnetek zaslona:
Izračunajte razliko med dvakrat v Wordovem dokumentu s kodo VBA
Tu je še ena koda VBA, ki vam lahko pomaga izračunati razliko med dvema časoma, naredite tako:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:
Koda VBA: Izračunajte razliko med dvakrat
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 nato pritisnite F5 za zagon te kode v zaporednih pogovornih oknih vnesite začetni in končni čas, ki ju želite uporabiti za izračun razlike, glejte posnetek zaslona:
4. Nato kliknite OK in časovna razlika med dvema časoma je izračunana in prikazana, kot je prikazano na sliki spodaj:
Najboljša pisarniška orodja za produktivnost
Kutools for Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
Poglobite se v spodaj poudarjene funkcije oz kliknite tukaj, če želite raziskati vso moč Kutools for Word.
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/XLSX) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati ...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo ...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite v našo skupino za odstranjevanje
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v naši skupini za vstavljanje
???? Natančne izbire: Natančno določite določene strani / mize / Oblike / odstavki naslova / Z lahkoto krmarite z našo Select Group
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo ...
Preoblikujte svoje Wordove naloge s Kutools. 👉 Prenesite s 30-dnevnim preizkusom zdaj 🚀.
