2 швидких способи отримати різницю між двома датами та часом за допомогою Word VBA

У цій статті ми хочемо представити вам 2 швидкі та ефективні способи отримати різницю між 2 конкретними датами чи часом за допомогою макросів Word.

Підрахувати дні або час, що залишився між 2 конкретними датами чи часом, не становить труднощів. Ви можете зробити математику самостійно або отримати калькулятор тривалості дати або часу. І тут ми хочемо продемонструвати вам 2 способи макросу, які дозволяють отримати різницю дати та часу в Word. Нижче наведено докладні кроки:

Отримайте різницю в даті

1. Перш за все, відкрийте Word.
2. Потім натисніть вкладку «Розробник», якщо вона вже активована.
3. Далі натисніть “Visual Basic”, щоб відкрити редактор VBA. Ви можете посилатися на Як вставити фонову музику у ваш документ Word додати на стрічку "Розробник". Або ви можете замість цього натиснути “Alt + F11”, якщо не хочете.
4. Тепер натисніть «Звичайний», а потім «Вставити».
5. У меню списку виберіть “Модуль”.
6. Далі двічі клацніть новий модуль, щоб увійти в область редагування.
7. Вставте такі коди:

Sub CalculateDateDifference()
  Dim dtStartDate As Date
  Dim dtEndDate As Date
  Dim lDaysLeft As Long

  '  Input the start date and end date, calculate the date difference.
  dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
  dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
  lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)

  '  Output the calculate the date difference between the two dates. 
  MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub

8. Натисніть «Виконати», щоб запустити коди.
9. Тепер ви побачите діалогове вікно «Дата початку». Введіть дату початку в текстове поле та натисніть «OK».
10. Далі є діалогове вікно “Дата завершення”. Подібним чином введіть дату завершення та натисніть “OK”.
11. Потім з’явиться вікно повідомлення із зазначенням різниці між двома датами.

Якщо вам потрібно вставити результат у документ, ви можете трохи відредагувати макрос, змінивши рядок коду “MsgBox («Залишилося » & lDaysLeft & » днів від » & dtStartDate & » до » & dtEndDate & vbCrLf)"Кому"Selection.Text = “Залишилося ” & lDaysLeft & ” днів від ” & dtStartDate & ” до ” & dtEndDate & vbCrLf".

Отримайте різницю в часі

1. Спочатку повторіть перші 6 кроків вище.
2. Потім вставте замість них ці коди:

Sub CalculateTimeDifference()
  Dim dtStartTime As Date
  Dim dtEndTime As Date
  Dim lTimeLeft As Long
  Dim lHour As Long
  Dim lMinute As Long
  Dim lSecond As Long
 
  '  Get the start time and the end time.
  dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00") 
  dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00") 
  '  Calculate the time difference. 
  lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
  lHour = lTimeLeft \ 3600
  lTimeLeft = lTimeLeft - lHour * 3600
  lMinute = lTimeLeft \ 60
  lSecond = lTimeLeft - lMinute * 60
 
  MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub

3. Не забудьте натиснути "Виконати".
4. У полі «Час початку» введіть час початку, наприклад, «18:00:00».
5. Потім введіть час завершення у діалоговому вікні “Час закінчення” та натисніть “OK”. І ви можете перевірити результат у вікні повідомлення, що з’являється.

Зменшити ризик втрати файлів

Час від часу Word може перестати працювати несподівано, залишаючи наші файли у великій небезпеці. Тому, щоб зменшити ймовірність пошкодження файлів, радимо регулярно робити резервні копії. Крім того, отримати Продукт для відновлення файлів Word необхідний, коли вам потрібно виправити пошкоджені файли.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі Засіб відновлення даних Excel XLS та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com