Šajā rakstā mēs vēlamies jums piedāvāt 2 ātrus un efektīvus veidus, kā iegūt starpību starp 2 konkrētiem datumiem vai laikiem, izmantojot Word makro.
Lai aprēķinātu dienas vai laiku, kas palicis starp diviem konkrētiem datumiem vai laikiem, nav grūtību. Jūs varat pats veikt matemātiku vai iegūt datuma vai laika ilguma kalkulatoru. Un šeit mēs vēlamies jums parādīt 2 makro veidus, kas ļauj jums iegūt datuma vai laika starpību programmā Word. Tālāk ir sniegtas detalizētas darbības:
Iegūstiet datuma starpību
- Pirmkārt un galvenokārt, atveriet programmu Word.
- Pēc tam noklikšķiniet uz cilnes Izstrādātājs, ja tā jau ir aktivizēta.
- Pēc tam noklikšķiniet uz Visual Basic, lai atvērtu VBA redaktoru. Jūs varat atsaukties uz Kā ievietot fona mūziku savā Word dokumentā lai lentei pievienotu “Developer”. Vai arī varat arī nospiest “Alt + F11”, ja nevēlaties.
- Tagad noklikšķiniet uz “Normal” un pēc tam uz “Insert”.
- Saraksta izvēlnē izvēlieties “Module”.
- Pēc tam veiciet dubultklikšķi uz jaunā moduļa, lai ievadītu rediģēšanas apgabalu.
- Ielīmējiet šādus kodus:
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
- Noklikšķiniet uz “Run”, lai palaistu kodus.
- Tagad jūs redzēsiet dialoglodziņu “Sākuma datums”. Ievadiet sākuma datumu tekstlodziņā un noklikšķiniet uz “Labi”.
- Tālāk ir dialoglodziņš “Beigu datums”. Līdzīgi ievadiet beigu datumu un noklikšķiniet uz “OK”.
- Tad parādīsies ziņojumu lodziņš, kas norāda starpību starp diviem datumiem.
Ja rezultāts ir jāievieto dokumentā, makro var nedaudz rediģēt, mainot koda rindiņu “MsgBox (“No ” & dtStartDate & ” līdz ” & dtEndDate & vbCrLf ir atlikušas ” & lDaysLeft & ” dienas)"Lai"Selection.Text = “No” un “dtStartDate” līdz “un “dtEndDate” un “ir atlikušas” un “lDaysLeft” un “dienas” un “dtEndDate” un “vbCrLf”".
Iegūstiet laika atšķirību
- Vispirms atkārtojiet pirmās 6 darbības iepriekš.
- Pēc tam ielīmējiet šos kodus:
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
- Atcerieties nospiest taustiņu “Run”.
- Lodziņā “Sākuma laiks” ievadiet sākuma laiku, piemēram, “18:00:00”.
- Pēc tam dialoglodziņā “Beigu laiks” ierakstiet beigu laiku un noklikšķiniet uz “Labi”. Rezultātu var pārbaudīt gaidāmajā ziņojumu lodziņā.
Mazināt failu zaudēšanas risku
Šad un tad Word var pārtraukt darbu no zila gaisa, atstājot mūsu failus ļoti apdraudētus. Tāpēc, lai samazinātu failu sabojāšanas iespēju, iesakām regulāri veikt dublējumus. Turklāt iegūstiet Word failu atkopšanas produkts ir nepieciešama, kad rodas nepieciešamība labot bojātus failus.
Autora ievads:
Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp Excel xls datu labošanas rīks un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar