Le code suivant vous demandera quelles sont les deux dates puis vous affichera le nombre de jours écoulés.
On peut bien entendu compliquer un peu en allant récupérer des dates déjà inscrites dans le document. Celles-ci peuvent par exemple être marquées par des signets.
Sub CalculerJoursEntreDates()
Dim Date1 As Date
Dim Date2 As Date
Dim NbJours As Long
' Demande d'entrer la première date
Date1 = InputBox("Entrez la première date (format : jj/mm/aaaa) :", "Date de Départ")
' Demande d'entrer la seconde date
Date2 = InputBox("Entrez la seconde date (format : jj/mm/aaaa) :", "Date de Fin")
' Calcul
NbJours = DateDiff("d", Date1, Date2)
' Affiche le résultat
MsgBox "le nombre de jours est de " & Abs(NbJours), vbInformation, "Résultat"
End Sub
Dim Date1 As Date
Dim Date2 As Date
Dim NbJours As Long
' Demande d'entrer la première date
Date1 = InputBox("Entrez la première date (format : jj/mm/aaaa) :", "Date de Départ")
' Demande d'entrer la seconde date
Date2 = InputBox("Entrez la seconde date (format : jj/mm/aaaa) :", "Date de Fin")
' Calcul
NbJours = DateDiff("d", Date1, Date2)
' Affiche le résultat
MsgBox "le nombre de jours est de " & Abs(NbJours), vbInformation, "Résultat"
End Sub
