Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

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

Author Xiaoyang Last modified

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 – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !

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

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone 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 / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Envie d’essayer ces fonctionnalités ? Téléchargez Kutools pour Word dès maintenant ! 🚀
 

✨ Kutools pour Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools