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