Calculer age en urgence svp

var
  Date1, Date2 : TDateTime; 
  Diff : Extended; 
  Jour1, Mois1, Annee1 : Word; 
  Jour2, Mois2, Annee2 : Word; 
begin 
  Date1 := EncodeDate(Annee1, Mois1, Jour1); 
  Date2 := EncodeDate(Annee2, Mois2, Jour2); 
  Diff := Date2 - Date1; 
end;

Discussions similaires