2 швидкі способи вставки днів чи часу, що залишилися до закінчення терміну, у вашому документі Word

У сьогоднішній статті ми представимо вам 2 швидкі способи вставити дні або час, що залишився до кінцевого терміну, у своєму документі Word.

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

У наступному тексті ми хотіли б представити вам 2 способи використання макросів для обчислення та отримання значення.

Обчисліть дні, що залишились до останнього терміну

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

Sub CountDownfromTodayToDeadlineDate()
  Dim dtDeadlineDate As Date
  Dim lDaysLeft As Long

  '  Input the deadline date to calculate the date difference.
  dtDeadlineDate = InputBox("Enter the deadline date", "Deadline Date", "For example:2017/2/14") 
  lDaysLeft = DateDiff("d", Now, dtDeadlineDate)
 
  '  Output the date difference from today to the deadline date in word document. 
  Selection.Text = "There are " & lDaysLeft & " days left from today to " & dtDeadlineDate & vbCrLf
End Sub

8. Далі натисніть кнопку «Виконати».
9. Вас зустріне діалогове вікно, як показано нижче:

Введіть дату крайнього терміну в текстове поле та натисніть “OK”.

Для зручності в майбутньому ви можете натиснути “Макроси” на вкладці “Розробник” і вибрати потрібний макрос, після чого натиснути “Виконати”. Це запустить діалогове вікно.

Обчисліть час, що залишився до кінцевого терміну

Іноді, крім того, що залишаються дні, вам також може знадобитися знати, скільки часу у вас залишилось до певного часу. Тоді макрос, що луне, - це те, що вам знадобиться.

1. Повторіть перші 8 кроків вище. Тільки вам потрібно замінити коди такими:

Sub CountDownfromNowToDeadlineTime()
  Dim dtTimeNow As Date
  Dim dtDeadlineTime As Date
  Dim lTimeLeft As Long
  Dim lHour As Long
  Dim lMinute As Long
  Dim lSecond As Long
 
  '  Get the time now and the deadline time.
  dtTimeNow = TimeValue(Now)
  dtDeadlineTime = InputBox("Enter the deadline time","Deadline Time", "For example:18:00:00") 
  '  Calculate the time difference.
  lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime)
  lHour = lTimeLeft \ 3600
  lTimeLeft = lTimeLeft - lHour * 3600
  lMinute = lTimeLeft \ 60
  lSecond = lTimeLeft - lMinute * 60
 
  Selection.Text = "There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from now to " & dtDeadlineTime & vbCrLf 
End Sub

2. Не забудьте натиснути кнопку «Виконати».
3. Цього разу у вас з’явиться діалогове вікно “Час закінчення”. Введіть час дедлайну та натисніть “OK”.

Зберігайте файли неушкодженими

Щоб зберегти цілісність файлів і зберігати їх подалі від пошкодження, найкращий і найпростіший спосіб - це часто робити резервні копії. Однак ми розуміємо, що важко дотримуватися рутини, саме тому щодня є так багато зламаних файлів. Щоб відновити ці проблемні файли, вам знадобиться файл пошкоджений інструмент відновлення Word.

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

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