2 moduri rapide de a introduce zilele sau timpul rămas înainte de un termen limită în documentul Word

În articolul de astăzi, vă vom prezenta 2 moduri rapide de a insera zilele sau timpul rămas înainte de un termen limită în documentul dvs. Word.

Din când în când, când lucrezi la un proiect important, vei descoperi că trebuie să ții cont de zilele exacte sau de ora rămasă înainte de termen pentru a-ți ajusta ritmul de lucru. Atunci va fi o idee grozavă să introduceți zilele sau timpul rămas înainte de termenul limită în documentul dvs. Word, astfel încât să vă reamintească ultimul timp rămas.

În textul următor, am dori să vă prezentăm 2 metode de utilizare a macrocomenzilor pentru a calcula și obține valoarea.

Calculați zilele rămase înainte de termenul limită

1. În primul rând, plasați cursorul în poziția unde doriți să introduceți numărul.
2. Apoi, faceți clic pe fila „Dezvoltator”.
3. Apoi faceți clic pe „Visual Basic” în grupul „Cod” pentru a deschide editorul VBA. De asemenea, puteți apăsa „Alt+ F11” în cazul în care fila „Dezvoltator” nu este disponibilă în Word.
4. Acum faceți clic pe „Normal” și apoi pe „Inserare”.
5. Apoi, alegeți „Modul”.
6. Faceți dublu clic pe noul modul pentru a deschide zona de editare din partea dreaptă.
7. Apoi lipiți acolo următoarele coduri:

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. Apoi, faceți clic pe butonul „Run”.
9. Veți fi întâmpinat cu o casetă de dialog, cum ar fi mai jos:

Introduceți data limită în caseta de text și faceți clic pe „OK”.

Pentru o utilizare ușoară în viitor, puteți face clic pe „Macrocomenzi” din fila „Dezvoltator” și puteți alege macrocomanda potrivită, apoi faceți clic pe „Run”. Acesta va declanșa caseta de dialog.

Calculați timpul rămas înainte de termenul limită

Uneori, în afară de zilele rămase, poate fi necesar să știi și cât timp ai rămas înainte de o anumită oră. Apoi, macrocomanda de mai jos este ceea ce veți avea nevoie.

1. Repetați primii 8 pași de mai sus. Numai tu trebuie să înlocuiești codurile cu următoarele:

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. Nu uitați să apăsați butonul „Run”.
3. De data aceasta, veți avea caseta de dialog „Timp limită”. Introduceți ora limită, apoi faceți clic pe „OK”.

Păstrați fișierele nevătămate

Pentru a păstra integritatea fișierelor și a le stoca departe de corupție, cel mai bun și mai simplu mod este să faceți copii de siguranță. Cu toate acestea, înțelegem că este greu să rămânem la o rutină, motiv pentru care există atât de multe fișiere sparte în fiecare zi. Pentru a repara aceste fișiere problematice, veți avea nevoie de un instrument de reparare Word corupt.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Instrument de reparare a erorilor xlsx și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com