Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe dagen of uren tussen twee datums of tijden te berekenen In Word-document?

Normaal gesproken kunnen we het aantal dagen tussen twee datums in het Excel-werkblad snel en eenvoudig berekenen, maar hebt u ooit geprobeerd het aantal dagen tussen twee opgegeven datums in een Word-document te krijgen?

Bereken het verschil tussen twee datums in Word-document met VBA-code

Bereken het verschil tussen twee keer in Word-document met VBA-code


Bereken het verschil tussen twee datums in Word-document met VBA-code

Om het aantal dagen tussen twee opgegeven datums te berekenen, kan de onderstaande VBA-code u een plezier doen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik vervolgens op bijvoegsel > module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: bereken het verschil tussen twee datums

Sub CalculateDateDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xDay As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start date", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end date", "KuTools for Word", "")
   If (InStr(1, Str(xStartDate), ":") > 0) Or (InStr(1, Str(xEndDate), ":") > 0) Then
        MsgBox "please input current date", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xDay = DateDiff("d", xStartDate, xEndDate)
    MsgBox "There are " & xDay & " days left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3. En druk vervolgens op F5 sleutel om deze code uit te voeren, voert u in de opeenvolgende dialoogvensters de begindatum en einddatum in die u wilt gebruiken, zie screenshot:

doc berekent dagen 1

4. Dan klikken OK knop, en je krijgt het resultaat dat je wilt, zie screenshot:

doc berekent dagen 2


Bereken het verschil tussen twee keer in Word-document met VBA-code

Hier is nog een VBA-code die je kan helpen om het verschil tussen twee gegeven tijden te berekenen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik vervolgens op bijvoegsel > module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: bereken het verschil tussen twee keer

Sub CalculateTimeDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xTime As Long
    Dim xHour As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start time", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end time", "KuTools for Word", "")
    Debug.Print Str(xStartDate)
    If (Str(xStartDate) = " 0:00:00") Or (Str(xEndDate) = " 0:00:00") _
    Or (Str(xStartDate) = " 12:00:00 AM") Or (Str(xEndDate) = " 12:00:00 AM") Then
        MsgBox "please input the time", vbInformation, "KuTools for Excel"
        Exit Sub
    ElseIf xStartDate > xEndDate Then
        MsgBox " The start time is not larger than the end time!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xTime = DateDiff("s", xStartDate, xEndDate)
    xHour = xTime \ 3600
    xTime = xTime - xHour * 3600
    MsgBox "There are " & xHour & " hours " & xTime \ 60 & " minutes " & xTime - (xTime \ 60) * 60 _
            & " seconds left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3. En druk vervolgens op F5 sleutel om deze code uit te voeren, voert u in de opeenvolgende dialoogvensters de starttijd en eindtijd in die u wilt gebruiken om het verschil te berekenen, zie screenshot:

doc berekent dagen 3

4. Dan klikken OK knop, en het tijdsverschil tussen twee gegeven tijden is berekend en weergegeven als volgende screenshot getoond:

doc berekent dagen 4



Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.