2 raske måter å finne forskjellen mellom to datoer eller klokkeslett via Word VBA

I denne artikkelen ønsker vi å presentere deg 2 raske og effektive måter å finne forskjellen mellom 2 spesifikke datoer eller klokkeslett via Word-makroer.

Det er ingen vanskelighet å beregne dagene eller tiden som er igjen mellom 2 konkrete datoer eller klokkeslett. Du kan enten gjøre regnestykket selv eller få en dato- eller tidsvarighetskalkulator. Og her ønsker vi å vise deg de 2 makromåtene som lar deg få dato- eller tidsforskjellen i Word. Følgende er de detaljerte trinnene:

Få datoforskjellen

1. Først og fremst, åpne Word.
2. Klikk deretter "Utvikler"-fanen hvis den allerede er aktivert.
3. Deretter klikker du på "Visual Basic" for å åpne VBA-editoren. Du kan henvise til Slik setter du inn bakgrunnsmusikk i Word-dokumentet ditt for å legge til "Utvikler" på båndet. Eller du kan også trykke "Alt+ F11" i stedet hvis du foretrekker det.
4. Klikk nå "Normal" og deretter "Sett inn".
5. På listemenyen velger du "Modul".
6. Deretter dobbeltklikker du på den nye modulen for å gå inn i redigeringsområdet.
7. Lim inn følgende koder:

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. Klikk "Kjør" for å kjøre kodene.
9. Nå skal du se en dialogboks for «Startdato». Skriv inn startdatoen i tekstboksen og klikk på «OK».
10. Deretter er det "Sluttdato"-dialogboksen. På samme måte, skriv inn sluttdatoen og klikk "OK".
11. Da dukker det opp en meldingsboks som indikerer forskjellen mellom de 2 datoene.

I tilfelle du trenger å sette inn resultatet i dokumentet ditt, kan du redigere makroen litt ved å endre kodelinjen "MsgBox (“Det er ” & lDaysLeft & ” dager igjen fra ” & dtStartDate & ” til ” & dtEndDate & vbCrLf)"Til"Selection.Text = “Det er ” & lDaysLeft & ” dager igjen fra ” & dtStartDate & ” til ” & dtEndDate & vbCrLf".

Få tidsforskjellen

1. Gjenta først de første 6 trinnene ovenfor.
2. Deretter limer du inn disse kodene i stedet:

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. Husk å trykke "Kjør".
4. I «Starttidspunkt»-boksen skriver du inn starttidspunktet, for eksempel «18:00:00».
5. Skriv deretter inn sluttid i dialogboksen "Sluttid" og klikk "OK". Og du kan sjekke utfallet i meldingsboksen som kommer opp.

Reduser risikoen for filtap

Nå og da kan Word slutte å fungere ut av det blå, og etterlate filene våre i stor fare. Derfor, for å redusere sjansen for å få filer skadet, foreslår vi at du tar regelmessige sikkerhetskopier. Få også en Word-filgjenopprettingsprodukt er nødvendig når du har behov for å fikse ødelagte filer.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel xls-datareparasjonsverktøy og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med