Accéder au contenu principal

Comment calculer les jours ou les heures entre deux dates ou heures dans un document Word ?

Author: Xiaoyang Last Modified: 2025-05-27

Normalement, nous pouvons calculer rapidement et facilement le nombre de jours entre deux dates dans une feuille de calcul Excel, mais avez-vous déjà essayé d'obtenir le nombre de jours entre deux dates données dans un document Word ?

Calculer la différence entre deux dates dans un document Word avec du code VBA

Calculer la différence entre deux horaires dans un document Word avec du code VBA


Calculer la différence entre deux dates dans un document Word avec du code VBA

Pour calculer le nombre de jours entre deux dates données, le code VBA ci-dessous peut vous aider, veuillez procéder comme suit :

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

2. Ensuite, cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert :

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. Ensuite, appuyez sur la touche F5 pour exécuter ce code, dans les boîtes de dialogue consécutives, saisissez la date de début et la date de fin que vous souhaitez utiliser, voir capture d'écran :

Enter the start and end date

4. Ensuite, cliquez sur le bouton OK, et vous obtiendrez le résultat souhaité, voir capture d'écran :

Pop-up displaying days between the two dates


Calculer la différence entre deux horaires dans un document Word avec du code VBA

Voici un autre code VBA qui peut vous aider à calculer la différence entre deux horaires donnés, veuillez procéder comme suit :

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

2. Ensuite, cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert :

Code VBA : Calculer la différence entre deux horaires

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. Ensuite, appuyez sur la touche F5 pour exécuter ce code, dans les boîtes de dialogue consécutives, saisissez l'horaire de début et l'horaire de fin que vous souhaitez utiliser pour calculer la différence, voir capture d'écran :

Enter the start and end time

4. Ensuite, cliquez sur le bouton OK, et la différence de temps entre deux horaires donnés a été calculée et affichée comme le montre la capture d'écran suivante :

Pop-up displaying time difference between the two times

Meilleurs outils de productivité pour Office

Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones de texte / Liens hypertexte / Pour plus d'outils de suppression, rendez-vous dans le groupe Supprimer...

Insertion créative : Insérer des séparateurs de milliers / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀