U ovom članku želimo vam predstaviti 2 brza i učinkovita načina za dobivanje razlike između 2 određena datuma ili vremena putem Word makronaredbi.
Izračunavanje preostalih dana ili vremena između 2 konkretna datuma ili vremena nije teško. Možete sami izračunati ili nabaviti kalkulator trajanja datuma ili vremena. I ovdje vam želimo pokazati 2 makronačina koji vam omogućuju da dobijete razliku u datumu ili vremenu u Wordu. Slijede detaljni koraci:
Dobijte razliku u datumu
- Prije svega, otvorite Word.
- Zatim kliknite karticu "Razvojni programer" ako je već aktivirana.
- Zatim kliknite "Visual Basic" da otvorite VBA editor. Možete se pozvati na Kako umetnuti pozadinsku glazbu u svoj Word dokument da dodate “Developer” na vrpcu. Ili umjesto toga možete pritisnuti “Alt+ F11” ako to ne želite.
- Sada kliknite "Normalno", a zatim "Umetni".
- Na izborniku popisa odaberite "Modul".
- Zatim dvaput kliknite novi modul za ulazak u područje za uređivanje.
- 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
- Kliknite "Pokreni" za pokretanje kodova.
- Sada ćete vidjeti dijaloški okvir "Datum početka". Unesite datum početka u tekstualno polje i kliknite "U redu".
- Zatim je dijaloški okvir "Datum završetka". Na sličan način unesite datum završetka i kliknite "U redu".
- Potom će se pojaviti okvir s porukom koji označava razliku između 2 datuma.
U slučaju da trebate umetnuti rezultat u svoj dokument, možete malo urediti makronaredbu promjenom linije koda "MsgBox („Preostalo je ” & lDaysLeft & ” dana od ” & dtStartDate & ” do ” & dtEndDate & vbCrLf)"Da"Selection.Text = “Preostalo je ” & lDaysLeft & ” dana od ” & dtStartDate & ” do ” & dtEndDate & vbCrLf".
Dobijte vremensku razliku
- Prvo ponovite prvih 6 koraka iznad.
- 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
- Ne zaboravite pritisnuti "Run".
- U okvir „Vrijeme početka“ unesite vrijeme početka, na primjer „18:00:00“.
- Zatim u dijaloški okvir "Vrijeme završetka" upišite vrijeme završetka i kliknite "U redu". A možete provjeriti ishod u okviru s porukom koji dolazi.
Umanjite rizik od gubitka datoteka
Tu i tamo Word može iznenada prestati raditi, ostavljajući naše datoteke u velikoj opasnosti. Stoga, kako biste smanjili mogućnost oštećenja datoteka, predlažemo da redovito izrađujete sigurnosne kopije. Također, nabavite a Proizvod za oporavak Word datoteka je neophodan kada se nađete u potrebi za popravljanjem pokvarenih datoteka.
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 Excel xls alat za popravak podataka i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com