I denne artikel vil vi præsentere dig 2 hurtige og effektive måder at få forskellen mellem 2 specifikke datoer eller tidspunkter via Word-makroer.
Det er ikke vanskeligt at beregne de dage eller tid, der er tilbage mellem 2 konkrete datoer eller tider. Du kan enten lave matematikken selv eller få en dato- eller tidsvarighedslommeregner. Og her vil vi demonstrere dig de to makroveje, der gør det muligt for dig at få dato- eller tidsforskellen i Word. Følgende er de detaljerede trin:
Få datoforskellen
- Først og fremmest, åbn Word.
- Klik derefter på fanen "Udvikler", hvis den allerede er aktiveret.
- Klik derefter på “Visual Basic” for at åbne VBA-editoren. Du kan henvise til Sådan indsættes baggrundsmusik i dit Word-dokument for at tilføje “Developer” til båndet. Eller du kan også trykke på "Alt + F11" i stedet for, hvis du foretrækker det ikke.
- Klik nu på “Normal” og derefter “Indsæt”.
- Vælg “Modul” i listemenuen.
- Dobbeltklik derefter på det nye modul for at komme ind i redigeringsområdet.
- Indsæt 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
- Klik på "Kør" for at køre koderne.
- Nu vil du se dialogboksen "Startdato". Indtast startdatoen i tekstfeltet, og klik på "OK".
- Dernæst er der dialogboksen "Slutdato". På samme måde skal du indtaste slutdatoen og klikke på “OK”.
- Derefter vises en meddelelsesboks, der angiver forskellen mellem de to datoer.
Hvis du har brug for at indsætte resultatet i dit dokument, kan du redigere makroen lidt ved at ændre kodelinjen “MsgBox (“Der er ” & lDaysLeft & ” dage tilbage fra ” & dtStartDate & ” til ” & dtEndDate & vbCrLf)"Til"Selection.Text = “Der er ” & lDaysLeft & ” dage tilbage fra ” & dtStartDate & ” til ” & dtEndDate & vbCrLf".
Få tidsforskellen
- Gentag først de første 6 trin ovenfor.
- Indsæt derefter disse koder 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
- Husk at trykke "Kør".
- I feltet "Starttidspunkt" skal du indtaste starttidspunktet, f.eks. "18:00:00".
- Indtast derefter sluttiden i dialogboksen "Sluttid", og klik på "OK". Og du kan kontrollere resultatet i meddelelsesboksen, der kommer op.
Afhjælpe risikoen for tab af filer
Nu og da kan Word stoppe med at arbejde ud af det blå og efterlade vores filer i stor fare. Derfor foreslår vi, at du foretager regelmæssige sikkerhedskopier for at reducere chancen for at få filer beskadiget. Få også en Produkt til gendannelse af Word-filer er nødvendigt, når du befinder dig i behovet for at rette ødelagte filer.
Forfatter Introduktion:
Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder Excel xls datareparationsværktøj og pdf produkter til reparation af software. For mere information besøg www.datanumen.com