Comment calculer le nombre de jours ou d’heures entre deux dates ou deux heures dans un document Word ?

Généralement, il est rapide et facile de calculer le nombre de jours entre deux dates dans une feuille Excel, mais avez-vous déjà essayé d’obtenir ce même nombre à partir de deux dates figurant dans un document Word ?

Calculer la différence entre deux dates dans un document Word à l’aide d’un code VBA

Calculer la différence entre deux heures dans un document Word à l’aide d’un code VBA

---

Calculer la différence entre deux dates dans un document Word à l’aide d’un code VBA

Pour calculer le nombre de jours entre deux dates données, le code VBA ci-dessous vous sera particulièrement utile. Suivez simplement ces étapes :

1. Appuyez simultanément sur les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code ci-dessous dans le module vierge qui s’ouvre :

Code VBA : Calculer la différence entre deux dates

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. Appuyez ensuite sur la touche F5 pour exécuter ce code. Dans les boîtes de dialogue successives, saisissez la date de début et la date de fin que vous souhaitez utiliser (voir capture d’écran) :

4. Cliquez ensuite sur le bouton OK pour obtenir le résultat souhaité (voir la capture d’écran) :

---

Calculer la différence entre deux heures dans un document Word à l’aide d’un code VBA

Voici un autre code VBA vous permettant de calculer la différence entre deux heures données. Procédez comme suit :

1. Maintenez enfoncées les touches ALT + F11pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez ensuite sur Insertion>Module, puis copiez et collez le code ci-dessous dans le module vierge ouvert :

Code VBA : Calculer la différence entre deux heures

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. Appuyez ensuite sur la touche F5 pour exécuter ce code. Dans les boîtes de dialogue successives, saisissez l’heure de début et l’heure de fin que vous souhaitez utiliser pour calculer la différence (voir capture d’écran) :

4. Cliquez ensuite sur le bouton OK : la différence horaire entre les deux heures indiquées est alors calculée et s’affiche comme le montre la capture d’écran suivante :