Note: The other languages of the website are Google-translated. Back to English

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

Normalement, nous pouvons calculer le nombre de jours entre deux dates dans une feuille de calcul Excel rapidement et facilement, 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 le code VBA

Calculer la différence entre deux fois dans un document Word avec le code VBA


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

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

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

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

doc calculer les jours 1

4. Puis clique OK bouton, et vous obtiendrez le résultat souhaité, voir capture d'écran:

doc calculer les jours 2


Calculer la différence entre deux fois dans un document Word avec le code VBA

Voici un autre code VBA qui peut vous aider à calculer la différence entre deux heures données, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert:

Code VBA: calculer la différence entre deux fois

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

doc calculer les jours 3

4. Puis clique OK bouton, et la différence de temps entre deux heures données a été calculée et affichée comme la capture d'écran suivante:

doc calculer les jours 4


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, enregistrez votre
50 %
Temps écoulé

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL