2 brza načina da dobijete razliku između dva datuma ili vremena putem Word VBA

U ovom članku želimo vam predstaviti 2 brza i efikasna načina da dobijete razliku između 2 određena datuma ili vremena putem Word makroa.

Izračunavanje dana ili vremena koje je ostalo između 2 konkretna datuma ili vremena nije teško. Možete sami izračunati ili dobiti kalkulator datuma ili vremena trajanja. I ovdje želimo da vam pokažemo 2 makro načina koji vam omogućavaju da dobijete datum ili vremensku razliku u Wordu. Slijede detaljni koraci:

Dobijte razliku u datumu

1. Prvo i osnovnoost, otvorite Word.
2. Zatim kliknite na karticu “Developer” ako je već aktivirana.
3. Zatim kliknite na "Visual Basic" da otvorite VBA editor. Možete se pozvati na Kako umetnuti pozadinsku muziku u Word dokument da dodate "Developer" na traku. Ili možete umjesto toga pritisnuti “Alt+ F11” ako ne želite.
4. Sada kliknite na “Normal” i zatim “Insert”.
5. U meniju liste izaberite „Modul“.
6. Zatim dvaput kliknite na novi modul da uđete u područje za uređivanje.
7. Zalijepite sljedeće kodove:

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. Kliknite na “Run” da pokrenete kodove.
9. Sada ćete vidjeti „Start Date” dijalog prozor. Unesite start datum u polju za tekst i kliknite na “OK”.
10. Zatim je dijaloški okvir „Datum završetka“. Slično, unesite datum završetka i kliknite na “OK”.
11. Tada će se pojaviti okvir s porukom koja ukazuje na razliku između 2 datuma.

U slučaju da trebate umetnuti rezultat u svoj dokument, makro možete malo urediti tako što ćete promijeniti liniju koda “MsgBox („Ostalo je ” & lDaysLeft & ” dana od ” & dtStartDate & ” do ” & dtEndDate & vbCrLf)"Do"Selection.Text = “Ostalo je ” & lDaysLeft & ” dana od ” & dtStartDate & ” do ” & dtEndDate & vbCrLf".

Dobijte vremensku razliku

1. Prvo ponovite prvih 6 gore navedenih koraka.
2. Zatim umjesto toga zalijepite ove kodove:

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. Ne zaboravite pritisnuti "Run".
4. U „Start Time”, unesite start vrijeme, kao što je “18:00:00”.
5. Zatim upišite vrijeme završetka u dijaloški okvir “Vrijeme završetka” i kliknite “OK”. I možete provjeriti rezultat u okviru za poruke koji se pojavljuje.

Smanjite rizik od gubitka datoteke

S vremena na vrijeme, Word može prestati raditi iz vedra neba, ostavljajući naše datoteke u velikoj opasnosti. Stoga, kako biste smanjili mogućnost oštećenja datoteka, predlažemo da redovno pravite sigurnosne kopije. Takođe, nabavite a Wordov proizvod za oporavak datoteka je neophodno kada se nađete u potrebi da popravite pokvarene datoteke.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel xls alat za popravku podataka i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com