2 brza načina za umetanje dana ili vremena preostalog do roka u vaš Word dokument

U današnjem članku ćemo vam predstaviti 2 brza načina za umetanje dana ili vremena preostalog prije roka u vaš Word dokument.

S vremena na vrijeme, kada radite na važnom projektu, shvatit ćete da morate imati na umu točne dane ili vrijeme preostalo prije roka kako biste prilagodili svoj tempo rada. Onda bi bilo dobro umetnuti dane ili vrijeme preostalo prije roka u vaš Word dokument, tako da vas mogu podsjetiti na posljednje preostalo vrijeme.

U sljedećem tekstu želimo vam predstaviti 2 metode kako pomoću makronaredbi izračunati i dobiti vrijednost.

Izračunajte dane preostale prije roka

1. Prvo i najvažnije, postavite kursor na mjesto gdje želite umetnuti broj.
2. Zatim kliknite karticu "Razvojni programer".
3. Zatim kliknite "Visual Basic" u grupi "Kôd" da biste otvorili VBA uređivač. Također, umjesto toga možete pritisnuti “Alt+ F11” u slučaju da kartica “Developer” nije dostupna u vašem Wordu.
4. Sada kliknite "Normalno", a zatim "Umetni".
5. Zatim odaberite "Modul".
6. Dvaput kliknite na novi modul da biste otvorili područje za uređivanje s desne strane.
7. Zatim tamo zalijepite sljedeće kodove:

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. Zatim kliknite gumb "Pokreni".
9. Dočekat će vas dijaloški okvir, poput donjeg:

Unesite datum roka u tekstualni okvir i kliknite "U redu".

Za jednostavno korištenje u budućnosti, možete kliknuti "Makronaredbe" pod karticom "Razvojni programer" i odabrati pravu makronaredbu, a zatim kliknuti "Pokreni". To će pokrenuti dijaloški okvir.

Izračunajte vrijeme preostalo prije roka

Ponekad, osim preostalih dana, možda ćete morati znati i koliko vam je vremena preostalo prije određenog vremena. Zatim, makronaredba za revljenje je ono što će vam trebati.

1. Ponovite prvih 8 koraka iznad. Samo trebate zamijeniti kodove sa sljedećim:

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. Ne zaboravite pritisnuti gumb "Pokreni".
3. Ovaj put ćete imati dijaloški okvir "Vrijeme roka". Unesite vrijeme roka, a zatim kliknite "U redu".

Čuvajte datoteke neoštećenima

Da biste sačuvali integritet datoteka i pohranili ih dalje od oštećenja, najbolji i najlakši način je često izrađivati ​​sigurnosne kopije. Međutim, razumijemo da je teško držati se rutine, što je razlog zašto ima toliko pokvarenih datoteka svaki dan. Za popravak ovih problematičnih datoteka trebat će vam a oštećeni alat za popravak Worda.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xlsx alat za popravak pogreške i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com