Function EcartDate(DatNaissance As Date, DatEnCours As Date)
'D'après une procédure de Roland_M
Dim Annee, Mois, Jour
Annee = Year(DatEnCours - DatNaissance) - 1900
Mois = Month(DatEnCours - DatNaissance) - 1
Jour = Day(DatEnCours - DatNaissance)
If Jour >= 31 Then Mois = Mois + 1: Jour = 0
If Mois >= 12 Then Annee = Annee + 1: Mois = 0
EcartDate = Array(Annee, Mois, Jour) 'Renvoie un vecteur-ligne à trois composantes.
End Function