In dit artikel willen we u 2 snelle en efficiënte manieren presenteren om het verschil te krijgen tussen 2 specifieke datums of tijden via Word-macro's.
Het berekenen van de resterende dagen of tijd tussen 2 concrete datums of tijden is geen probleem. U kunt de wiskunde zelf doen of een calculator voor de duur van de datum of tijd krijgen. En hier willen we u de 2 macro-manieren demonstreren waarmee u het datum- of tijdsverschil in Word kunt krijgen. Hieronder volgen de gedetailleerde stappen:
Verkrijg het datumverschil
- Allereerst, open Word.
- Klik vervolgens op het tabblad "Ontwikkelaar" als het al is geactiveerd.
- Klik vervolgens op "Visual Basic" om de VBA-editor te openen. U kunt verwijzen naar Achtergrondmuziek invoegen in uw Word-document om "Developer" aan het lint toe te voegen. Of u kunt ook op "Alt + F11" drukken als u dat liever niet wilt.
- Klik nu op "Normaal" en vervolgens op "Invoegen".
- Kies "Module" in het lijstmenu.
- Dubbelklik vervolgens op de nieuwe module om het bewerkingsgebied te openen.
- Plak de volgende codes:
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 op "Uitvoeren" om de codes uit te voeren.
- Nu verschijnt er een dialoogvenster met de titel "Startdatum". Voer de startdatum in het tekstvak in en klik op "OK".
- Vervolgens is er het dialoogvenster "Einddatum". Voer op dezelfde manier de einddatum in en klik op "OK".
- Er verschijnt dan een berichtvenster waarin het verschil tussen de 2 datums wordt aangegeven.
Als u het resultaat in uw document moet invoegen, kunt u de macro een beetje bewerken door de coderegel "MsgBox (“Er zijn ” & lDaysLeft & ” dagen over van ” & dtStartDate & ” tot ” & dtEndDate & vbCrLf)' als 'Selection.Text = “Er zijn ” & lDaysLeft & ” dagen over van ” & dtStartDate & ” tot ” & dtEndDate & vbCrLf'.
Verkrijg het tijdsverschil
- Herhaal eerst de eerste 6 bovenstaande stappen.
- Plak vervolgens deze codes:
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
- Vergeet niet om op "Uitvoeren" te klikken.
- Voer in het vak 'Starttijd' de gewenste starttijd in, bijvoorbeeld '18:00:00'.
- Typ vervolgens de eindtijd in het dialoogvenster "Eindtijd" en klik op "OK". En u kunt het resultaat controleren in het berichtvenster dat verschijnt.
Beperk het risico van bestandsverlies
Af en toe kan Word stoppen met werken uit het niets, waardoor onze bestanden in groot gevaar komen. Om de kans op beschadiging van bestanden te verkleinen, raden we u daarom aan regelmatig back-ups te maken. Haal ook een Herstelproduct voor Word-bestanden is nodig als u merkt dat u kapotte bestanden moet repareren.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Excel xls gegevensherstelprogramma en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com