Kuinka laskea päiviä tai tunteja kahden päivämäärän tai kellonajan välillä Word-asiakirjassa?
Normaalisti voimme laskea kahden päivämäärän välisten päivien määrän Excel-laskentataulukossa nopeasti ja helposti, mutta oletko koskaan yrittänyt saada päivien lukumäärää kahden tietyn päivämäärän välillä Word-asiakirjassa?
Laske ero kahden päivämäärän välillä Word-asiakirjassa VBA-koodilla
Laske kahden ajan välinen ero Word-asiakirjassa VBA-koodilla
Laske ero kahden päivämäärän välillä Word-asiakirjassa VBA-koodilla
Kahden tietyn päivämäärän välisten päivien määrän laskemiseksi alla oleva VBA-koodi voi tehdä palveluksen, toimi seuraavasti:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Ja sitten, napsauta liite > Moduulit, kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin:
VBA-koodi: Laske kahden päivämäärän välinen ero
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. Ja sitten paina F5 -näppäintä tämän koodin suorittamiseksi, kirjoita peräkkäisiin valintaikkunoihin aloitus- ja lopetuspäivämäärä, jota haluat käyttää, katso kuvakaappaus:
4. Napsauta sitten OK -painiketta, ja saat haluamasi tuloksen, katso kuvakaappaus:
Laske kahden ajan välinen ero Word-asiakirjassa VBA-koodilla
Tässä on toinen VBA-koodi, joka voi auttaa sinua laskemaan eron kahden tietyn ajan välillä, toimi seuraavasti:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Ja sitten, napsauta liite > Moduulit, kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin:
VBA-koodi: Laske ero kahden ajan välillä
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. Ja sitten paina F5 -näppäintä tämän koodin suorittamiseksi, kirjoita peräkkäisiin valintaikkunoihin alkamis- ja lopetusaika, joita haluat käyttää eron laskemiseen, katso kuvakaappaus:
4. Napsauta sitten OK -painiketta, ja kahden tietyn ajan välinen aikaero on laskettu ja esitetty seuraavan kuvakaappauksen mukaisesti:
Parhaat toimiston tuottavuustyökalut
Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!
🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...
📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...
✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...
🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...
➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...
🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...
⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...
Parhaat toimiston tuottavuustyökalut
Kutools for Word - Yli 100 Wordin työkalua
- 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
- 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
- ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
- 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
- ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja