Šiame straipsnyje norime jums pristatyti 2 greitus ir efektyvius būdus, kaip atskirti 2 konkrečias datas ar laikus naudojant Word makrokomandas.
Apskaičiuoti dienas ar laiką, likusį tarp 2 konkrečių datų ar laikų, nėra sunku. Galite atlikti skaičiavimus patys arba gauti datos ar laiko trukmės skaičiuotuvą. Ir čia norime parodyti jums 2 makrokomandos būdus, kurie leidžia gauti datos arba laiko skirtumą programoje „Word“. Toliau pateikiami išsamūs žingsniai:
Gaukite datos skirtumą
- Visų pirma, atidarykite „Word“.
- Tada spustelėkite skirtuką „Kūrėjas“, jei jis jau suaktyvintas.
- Tada spustelėkite „Visual Basic“, kad atidarytumėte VBA redaktorių. Galite remtis Kaip įterpti foninę muziką į savo Word dokumentą prie juostelės pridėti „Kūrėjas“. Arba taip pat galite paspausti „Alt + F11“, jei nenorite.
- Dabar spustelėkite „Įprastas“, tada „Įterpti“.
- Sąrašo meniu pasirinkite „Modulis“.
- Tada dukart spustelėkite naują modulį, kad patektumėte į redagavimo sritį.
- Įklijuokite šiuos 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
- Spustelėkite „Vykdyti“, kad paleistumėte kodus.
- Dabar pamatysite dialogo langą „Pradžios data“. Įveskite pradžios datą teksto lauke ir spustelėkite „Gerai“.
- Kitas yra dialogo langas „Pabaigos data“. Panašiai įveskite pabaigos datą ir spustelėkite „Gerai“.
- Tada pasirodys pranešimų laukelis, nurodantis skirtumą tarp 2 datų.
Jei jums reikia įterpti rezultatą į savo dokumentą, galite šiek tiek redaguoti makrokomandą pakeisdami kodo eilutę "MsgBox („Nuo „& dtStartDate & “ iki „& dtEndDate & vbCrLf“ liko „ & lDaysLeft & “ dienų)“"Iki"Selection.Text = „Nuo „“ ir „dtStartDate“ ir „ iki „ ir „dtEndDate“ ir vbCrLf liko „ & lDaysLeft & “ dienų".
Gaukite laiko skirtumą
- Pirmiausia pakartokite pirmuosius 6 aukščiau nurodytus veiksmus.
- Tada įklijuokite šiuos 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
- Nepamirškite paspausti „Vykdyti“.
- Lauke „Pradžios laikas“ įveskite pradžios laiką, pvz., „18:00:00“.
- Tada dialogo lange „Pabaigos laikas“ įveskite pabaigos laiką ir spustelėkite „Gerai“. Ir jūs galite patikrinti rezultatą ateinančiame pranešimo laukelyje.
Sumažinkite failų praradimo riziką
Kartais „Word“ gali nustoti veikti netikėtai, todėl mūsų failams kyla didelis pavojus. Todėl, norėdami sumažinti failų sugadinimo tikimybę, rekomenduojame reguliariai kurti atsargines kopijas. Taip pat gaukite a Word failų atkūrimo produktas yra būtinas, kai jums reikia pataisyti sugadintus failus.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel xls duomenų taisymo įrankis bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com