Dans cet article, nous voulons vous présenter 2 façons rapides et efficaces d'obtenir la différence entre 2 dates ou heures spécifiques via des macros Word.
Calculer les jours ou le temps restant entre 2 dates ou heures concrètes ne présente aucune difficulté. Vous pouvez soit faire le calcul par vous-même, soit obtenir un calculateur de date ou de durée. Et ici, nous voulons vous montrer les 2 méthodes de macro qui vous permettent d'obtenir la différence de date ou d'heure dans Word. Voici les étapes détaillées :
Obtenez la différence de date
- Avant toute chose, ouvrez Word.
- Cliquez ensuite sur l'onglet "Développeur" s'il est déjà activé.
- Ensuite, cliquez sur "Visual Basic" pour ouvrir l'éditeur VBA. Vous pouvez vous référer à Comment insérer une musique de fond dans votre document Word pour ajouter "Développeur" au ruban. Ou vous pouvez également appuyer sur "Alt + F11" à la place si vous préférez ne pas le faire.
- Cliquez maintenant sur "Normal" puis sur "Insérer".
- Dans le menu liste, choisissez "Module".
- Ensuite, double-cliquez sur le nouveau module pour entrer dans la zone d'édition.
- Collez les codes suivants :
Sub CalculateDateDifference()
Dim dtStartDate As Date
Dim dtEndDate As Date
Dim lDaysLeft As Long
' Input the start date and end date, calculate the date difference.
dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)
' Output the calculate the date difference between the two dates.
MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub
- Cliquez sur "Exécuter" pour exécuter les codes.
- Vous verrez alors une boîte de dialogue « Date de début ». Saisissez la date de début dans la zone de texte et cliquez sur « OK ».
- Ensuite, il y a la boîte de dialogue "Date de fin". De même, saisissez la date de fin et cliquez sur "OK".
- Ensuite, une boîte de message apparaîtra, indiquant la différence entre les 2 dates.
Au cas où vous auriez besoin d'insérer le résultat dans votre document, vous pouvez éditer un peu la macro en changeant la ligne de code "MsgBox (« Il reste ” & lDaysLeft & ” jours entre ” & dtStartDate & ” et ” & dtEndDate & vbCrLf)"Pour"Selection.Text = "Il reste " & lDaysLeft & " jours entre " & dtStartDate & " et " & dtEndDate & vbCrLf ».
Obtenez le décalage horaire
- Répétez d'abord les 6 premières étapes ci-dessus.
- Collez ensuite ces codes à la place :
Sub CalculateTimeDifference()
Dim dtStartTime As Date
Dim dtEndTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the start time and the end time.
dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00")
dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub
- N'oubliez pas d'appuyer sur "Exécuter".
- Dans le champ « Heure de début », saisissez l’heure de début, par exemple « 18:00:00 ».
- Tapez ensuite l'heure de fin dans la boîte de dialogue "Heure de fin" et cliquez sur "OK". Et vous pouvez vérifier le résultat dans la boîte de message à venir.
Atténuer le risque de perte de fichiers
De temps en temps, Word peut cesser de fonctionner à l'improviste, laissant nos fichiers en grand danger. Par conséquent, pour réduire le risque d'endommager des fichiers, nous vous suggérons de faire des sauvegardes régulières. Aussi, obtenez un Produit de récupération de fichiers Word est nécessaire lorsque vous avez besoin de réparer des fichiers endommagés.
Introduction de l'auteur:
Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Outil de réparation de données Excel xls et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com