FONCTION Calcul_Age(_DateNaissance="",_DateButoire=DateSys())
madate est une Date
DatedeFin est une chaîne=EntierVersDate(DateVersEntier(_DateButoire)+1)
// On ajoute un jour à la date butoire car apparament le dernier n'est pas compté dans la fonction
// Ce doit être entre et entre
CalCulRetour est composé de
		Annee est un entier
		Mois est un entier
		Jour est un entier
FIN
madate=Age(_DateNaissance,DatedeFin)
CalCulRetour.Jour =madate..Jour
CalCulRetour.Mois =madate..Mois
CalCulRetour.Annee =madate..Année

RENVOYER CalCulRetour
//Pour récupérer dans la fenêtre
CalculRetour est composé de
	annee est un entier
	Mois est un entier
	Jour est un entier
FIN
CalculRetour=Calcul_Age("20060101","20060131")
Trace("An "+CalculRetour.annee,+...
" Mois "+CalculRetour.mois,+...
" Jour "+CalculRetour.Jour)