Cum se calculează zile sau ore între două date sau ore în documentul Word?
În mod normal, putem calcula numărul de zile între două date din foaia de lucru Excel rapid și ușor, dar ați încercat vreodată să obțineți numărul de zile dintre două date date într-un document Word?
Calculați diferența dintre două date în documentul Word cu cod VBA
Calculați diferența dintre două ori în documentul Word cu cod VBA
Calculați diferența dintre două date în documentul Word cu cod VBA
Pentru a calcula numărul de zile dintre două date date, codul VBA de mai jos vă poate face o favoare, vă rugăm să procedați astfel:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis:
Cod VBA: calculați diferența dintre două date
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. Și apoi, apăsați F5 tasta pentru a rula acest cod, în casetele de dialog consecutive, introduceți data de începere și data de încheiere pe care doriți să le utilizați, consultați captura de ecran:
4. Apoi apasa OK și veți obține rezultatul dorit, vedeți captura de ecran:
Calculați diferența dintre două ori în documentul Word cu cod VBA
Iată un alt cod VBA care vă poate ajuta să calculați diferența dintre două ori date, vă rugăm să procedați astfel:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis:
Cod VBA: calculați diferența dintre două ori
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. Și apoi, apăsați F5 tasta pentru a rula acest cod, în casetele de dialog consecutive, introduceți ora de începere și ora de încheiere pe care doriți să le utilizați pentru a calcula diferența, vedeți captura de ecran:
4. Apoi apasa OK butonul, iar diferența de timp dintre două ore date a fost calculată și afișată după cum urmează:
Cele mai bune instrumente de productivitate de birou
Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!
🤖 Caracteristici Kutools AI: Generați conținut / Rescrie textul / Documente Întrebări și răspunsuri / Obțineți răspunsuri rapide / Traduceți documente / Document polonez (format păstrat)...
📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF...
✏ Editarea continutului: Găsiți și înlocuiți în loturi în mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...
🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la Elimină grup...
➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Imagini multiple / Descoperiți mai multe în Insera grup...
???? Selectii de precizie: Repera cu precizie Pagini specifice / Mese / Forme / Paragrafe de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...
⭐ Îmbunătățiri de stele: Navigați la orice locație / Inserarea automată a textului repetitiv / Comutați între ferestrele documentelor / 11 Convertire Instrumente...
Cele mai bune instrumente de productivitate de birou
Kutools pentru Cuvânt - Peste 100 de instrumente pentru Word
- 🤖 Caracteristici Kutools AI: Genera, Rescrie, Rezuma, Traduceți Documente / Obțineți răspunsuri rapide / Document polonez (format păstrat)
- 📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Conversie lot în PDF
- ✏ Editarea continutului: Găsiți și înlocuiți în lot / Redimensionați toate imaginile
- 🧹 Curățare fără efort: Eliminați spațiile suplimentare / Eliminați secțiunile de secțiune
- ➕ Inserții creative: Introduceți o mie de separatoare / Introduceți casete de selectare / Creați coduri QR