2 hitra načina za pridobitev razlike med dvema datumoma ali časoma prek programa Word VBA

V tem članku vam želimo predstaviti 2 hitra in učinkovita načina za pridobitev razlike med 2 določenima datumoma ali časom prek Wordovih makrov.

Izračun preostalih dni ali časa med dvema konkretnima datumoma ali časoma ni težaven. Računate lahko naredite sami ali pa dobite kalkulator trajanja datuma ali časa. In tukaj vam želimo predstaviti 2 makro načina, ki vam omogočata, da dobite datumsko ali časovno razliko v Wordu. Sledijo podrobni koraki:

Pridobite datumsko razliko

1. Najprej in predvsem odprite Word.
2. Nato kliknite zavihek »Razvijalec«, če je že aktiviran.
3. Nato kliknite »Visual Basic«, da odprete urejevalnik VBA. Lahko se sklicujete na Kako vstaviti glasbo v ozadje v dokument Word da dodate »Razvijalec« na trak. Lahko pa namesto tega pritisnete »Alt + F11«, če tega ne želite.
4. Zdaj kliknite »Običajno« in nato »Vstavi«.
5. V meniju seznama izberite »Modul«.
6. Nato dvokliknite nov modul, da odprete območje za urejanje.
7. Prilepite naslednje kode:

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 »Zaženi«, da zaženete kode.
9. Zdaj se bo prikazalo pogovorno okno »Začetni datum«. V besedilno polje vnesite začetni datum in kliknite »V redu«.
10. Nato je pogovorno okno »Končni datum«. Podobno vnesite končni datum in kliknite »V redu«.
11. Nato se prikaže okno s sporočilom, ki označuje razliko med datumoma.

Če morate rezultat vstaviti v svoj dokument, lahko makro nekoliko uredite tako, da spremenite kodno vrstico "MsgBox (»Od » & dtStartDate & « do « & dtEndDate & vbCrLf je ostalo « & lDaysLeft & « dni)"Da"Selection.Text = »Od » & lDaysLeft & « dni je ostalo « & dtStartDate & « do « & dtEndDate & vbCrLf".

Pridobite časovno razliko

1. Najprej ponovite prvih 6 zgornjih korakov.
2. Namesto tega prilepite te kode:

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 pozabite pritisniti »Zaženi«.
4. V polje »Začetni čas« vnesite začetni čas, na primer »18:00:00«.
5. Nato vnesite končni čas v pogovorno okno »Končni čas« in kliknite »V redu«. Rezultat lahko preverite v oknu s sporočilom, ki se prikaže.

Zmanjšajte tveganje izgube datotek

Tu in tam lahko Word nenadoma preneha delovati, zaradi česar so naše datoteke v veliki nevarnosti. Da bi zmanjšali možnost poškodbe datotek, predlagamo, da redno izdelujete varnostne kopije. Pridobite tudi a Izdelek za obnovitev datotek Word je potrebno, ko se znajdete v potrebi po popravljanju poškodovanih datotek.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Orodje za popravilo podatkov Excel xls in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com