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:
Priporočena orodja za produktivnost besed
Kutools za Word - več kot 100 naprednih funkcij za Word prihranite 50% časa
- Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
- V Wordov dokument hkrati vstavite več slik v mape.
- Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
- Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
- Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.