Come calcolare giorni o ore tra due date o orari in un documento Word?

Di solito, possiamo calcolare in modo rapido e semplice il numero di giorni tra due date in un foglio di lavoro Excel, ma hai mai provato a ottenere il numero di giorni tra due date specifiche in un documento Word?

Calcola la differenza tra due date in un documento Word con codice VBA

Calcola la differenza tra due orari in un documento Word con codice VBA

---

Calcola la differenza tra due date in un documento Word con codice VBA

Per calcolare il numero di giorni tra due date specifiche, il seguente codice VBA ti sarà d’aiuto. Procedi nel modo seguente:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fai quindi clic su Inserisci > Modulo, quindi copia e incolla il codice seguente nel modulo vuoto aperto:

Codice VBA: Calcola la differenza tra due date

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. Premi quindi il tasto F5 per eseguire questo codice. Nelle finestre di dialogo successive, inserisci la data di inizio e la data di fine che desideri utilizzare; vedi screenshot:

4. Quindi, fai clic sul pulsante OK e otterrai il risultato desiderato; vedi screenshot:

---

Calcola la differenza tra due orari in un documento Word con codice VBA

Ecco un altro codice VBA che ti consente di calcolare la differenza tra due orari specificati. Segui questi passaggi:

1. Tieni premuti i tasti ALT + F11per aprire la finestra di Microsoft Visual Basic for Applications.

2. Quindi, fai clic su Inserisci>Modulo, quindi copia e incolla il codice seguente nel modulo vuoto aperto:

Codice VBA: Calcola la differenza tra due orari

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. Premi quindi il tasto F5 per eseguire questo codice. Nelle finestre di dialogo successive, inserisci l’orario di inizio e quello di fine da utilizzare per calcolare la differenza; vedi screenshot:

4. Quindi, fai clic sul pulsante OK e la differenza di tempo tra i due orari specificati verrà calcolata e visualizzata, come mostrato nello screenshot seguente: