calculer l'age

Réponse acceptée !
Bonjour

essayer ce code, je pense qu'il vous sera util :-)

procedure TForm1.Button1Click(Sender: TObject);
var dateN,dateF:TDateTime;
      i:Integer;
begin
dateN:=EncodeDate(DateDeNaissance); //format: Année,mois,jour 
dateF:=EncodeDate(Date);
i:=Trunc(dateN)-Trunc(dateF);//calculer le nombre de jours entre les deux dates
ShowMessage(IntToStr(i)); //Afficher le nombre de jours entre deux dates dans un show message
end;

je pense que c'est claire, bonne chance et bonne programmation.

Réponse acceptée !
il y a aussi DaysBetween(dateN,dateF)

Réponse acceptée !
Je Confirme ce que dit @FOUAD et j'ajoute quel que chose un peut plus précis, vous pouvez consulter l'aide de delphi pour plus de détail.

(**********et n'oubliez pas d'ajouter cette unité au uses 'DateUtils' pour ces type de fonction (yearsbetween(),daysbetween(),CompareDate()...)********************)

showmessage('Votre age est: '+inttostr(YearsBetween(dateN, now))+' Ans');

Bon chasse a tous