Comment calculer les jours ou les heures entre deux dates ou heures dans un document Word ?
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 :
4. Ensuite, cliquez sur le bouton OK, et vous obtiendrez le résultat souhaité, voir capture d'écran :
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 :
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 :
Meilleurs outils de productivité pour Office
Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités exceptionnelles!
🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir (Conserve la mise en forme)/ Super Traduire (Conserve la mise en forme)/ Rédaction IA/ Correction AI...
📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Exporter une sélection dans différents 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 de tableau/ Convertir le tableau en texte...
🧹 Nettoyage facile: Éliminez les espaces supplémentaires/ sauts de section/ zones de texte/ liens hypertexte/ Pour plus d’outils de suppression, consultez le groupe Supprimer...
➕ Insertion créative: Insérez des séparateurs de milliers/ cases à cocher/ boutons radio/ code QR/ code-barres/ images multiples/ Découvrez-en plus dans le groupe Insérer...
🔍 Sélection avec précision: Ciblez des pages spécifiques / tableaux / formes / paragraphes de titre / Améliorez la navigation avec davantage de Sélectionner fonctionnalités...
⭐ Fonctionnalités phares: Accédez à n'importe quel emplacement/ Insertion automatique de textes répétitifs/ Basculez entre les fenêtres de document/11 outils de conversion...
🌍 Prise en charge de plus de40 langues: utilisez Kutools dans la langue de votre choix – Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres langues!

Meilleurs outils de productivité pour Office
Kutools pour Word – 100+ outils pour Word
- 🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir/ Super Traduire/ Rédaction IA/ Correction AI
- 📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Conversion en lot vers PDF
- ✏ Édition de contenu: Recherche et remplacement en lot/ Redimensionner toutes les images
- 🧹 Nettoyage facile: Supprimer les espaces supplémentaires/ Supprimer les sauts de section
- ➕ Insertion créative: Insérer des séparateurs de milliers/ Insérer des cases à cocher/ Créer des codes QR
- 🌍 Prise en charge de plus de40 langues: Kutools parle votre langue– plus de40langues prises en charge!