Як розрахувати дні або години між двома датами чи часом у документі Word?
Зазвичай ми можемо швидко та легко розрахувати кількість днів між двома датами на аркуші Excel, але чи намагались ви коли-небудь отримувати кількість днів між двома датами в документі Word?
Обчисліть різницю між двома датами в документі Word із кодом VBA
Обчисліть різницю між двома разами у документі Word із кодом VBA
Обчисліть різницю між двома датами в документі Word із кодом VBA
Щоб розрахувати кількість днів між двома даними, поданий нижче код VBA може зробити вам послугу, будь ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль:
Код VBA: Обчисліть різницю між двома датами
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. А потім натисніть F5 для запуску цього коду, у послідовних діалогових вікнах введіть дату початку та дату завершення, які ви хочете використовувати, див. знімок екрана:
4. Потім натисніть кнопку OK , і ви отримаєте бажаний результат, див. знімок екрана:
Обчисліть різницю між двома разами у документі Word із кодом VBA
Ось ще один код VBA, який може допомогти вам розрахувати різницю між двома даними, виконайте наступне:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль:
Код VBA: Обчисліть різницю між двома разами
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. А потім натисніть F5 для запуску цього коду, в послідовних діалогових вікнах введіть час початку та час закінчення, які ви хочете використовувати для обчислення різниці, див. знімок екрана:
4. Потім натисніть кнопку OK , і різниця в часі між двома даними часом була розрахована та відображена, як показано на наступному знімку екрана:
Найкращі інструменти продуктивності офісу
Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!
🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту / Переписати текст / Узагальнити документи / Звертайтеся за інформацією на основі Документа, все в Word
📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...) / Пакетне перетворення в PDF / Експортувати сторінки як зображення / Друк кількох файлів одночасно...
✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами / Змінити розмір усіх зображень / Транспонування рядків і стовпців таблиці / Перетворити таблицю в текст...
🧹 Очищення без зусиль: Змітати Зайві простори / Розбиття розділів / Усі заголовки / Текстові поля / Гіперпосилання / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...
➕ Творчі вставки: Вставити Роздільники тисяч / Прапорці / радіо кнопки / QR-код / Штрих-код / Таблиця діагональних ліній / Заголовок рівняння / Підпис зображення / Заголовок таблиці / Кілька зображень / Дізнайтеся більше в Вставити групу...
???? Точність вибору: Точне визначення конкретні сторінки / Таблиці / форми / заголовок абзаців / Покращте навігацію за допомогою більше Виберіть функції...
⭐ Покращення зірок: Швидка навігація до будь-якого місця / автоматичне вставлення повторюваного тексту / плавно перемикатися між вікнами документів / 11 Інструменти перетворення...