2 kiiret viisi kahe kuupäeva või kellaaja eristamiseks Word VBA kaudu

Selles artiklis tahame teile tutvustada 2 kiiret ja tõhusat viisi, kuidas Wordi makrode kaudu kahe konkreetse kuupäeva või kellaaja vahel vahet teha.

Kahe konkreetse kuupäeva või kellaaja vahele jäänud päevade või aja arvutamine ei ole keeruline. Saate teha matemaatika ise või hankida kuupäeva või kellaaja kestuse kalkulaatori. Ja siin tahame teile näidata kahte makroviisi, mis võimaldavad teil Wordis kuupäeva või kellaaja erinevust hankida. Järgnevad on üksikasjalikud sammud.

Hankige kuupäevade erinevus

1. Esiteks ja kõige tähtsamalt avage Word.
2. Seejärel klõpsake vahekaarti "Arendaja", kui see on juba aktiveeritud.
3. Järgmisena klõpsake VBA redaktori avamiseks "Visual Basic". Võite viidata Kuidas lisada Wordi dokumenti taustamuusikat et lisada lindile "Arendaja". Või võite selle asemel vajutada klahvikombinatsiooni Alt+ F11, kui te seda ei soovi.
4. Nüüd klõpsake "Tavaline" ja seejärel "Insert".
5. Valige loendi menüüst "Moodul".
6. Järgmisena topeltklõpsake uut moodulit, et siseneda redigeerimisalasse.
7. Kleepige järgmised koodid:

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. Koodide käivitamiseks klõpsake nuppu "Käivita".
9. Nüüd näete dialoogiboksi „Alguskuupäev“. Sisestage alguskuupäev tekstikasti ja klõpsake nuppu „OK“.
10. Järgmisena on dialoogiboks "Lõppkuupäev". Samamoodi sisestage lõppkuupäev ja klõpsake "OK".
11. Seejärel ilmub sõnumikast, mis näitab kahe kuupäeva erinevust.

Kui teil on vaja tulemus oma dokumenti sisestada, saate makrot veidi redigeerida, muutes koodirida "MsgBox (“Märkustest ” & dtStartDate & ” kuni ” & dtEndDate & vbCrLf on jäänud ” & lDaysLeft & ” päevi)"Et"Valik.Tekst = „Päevi on jäänud alates kuupäevast „ ja kuupäeva alguskuupäevast „ kuni kuupäeva lõppkuupäevani „ ja kuupäeva lõppkuupäevast „ ja kuupäeva lõppkuupäevast „ ja vbCrLf".

Hankige ajavahe

1. Esmalt korrake ülaltoodud 6 esimest sammu.
2. Seejärel kleepige selle asemel need koodid:

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. Ärge unustage vajutada nuppu "Käivita".
4. Sisestage väljale „Algusaeg“ algusaeg, näiteks „18:00:00“.
5. Seejärel tippige dialoogiboksi "Lõppaeg" lõpuaeg ja klõpsake "OK". Ja tulemust saate vaadata tulevas sõnumikastis.

Vähendage failide kadumise ohtu

Aeg-ajalt võib Word lakata töötamast, jättes meie failid suurde ohtu. Seetõttu soovitame failide kahjustamise võimaluse vähendamiseks teha regulaarselt varukoopiaid. Samuti hankige a Wordi faili taastamise toode on vajalik, kui leiate, et teil on vaja katkisi faile parandada.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Excel xls andmete parandamise tööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom