Discussion :

[walid_kerkoub]

Bonjour à tous,

j'ai fait une application et j'ai besoin de savoir l'âge d'une personne selon sa date de naissance. Quelqu'un peut m'aider ?

[MiJack]

Bonjour à tous,

j'ai fait une application et j'ai besoin de savoir l'âge d'une personne selon sa date de naissance. Quelqu'un peut m'aider ?

Et qu'est-ce qui te pose de problème ? Tu n'as qu'à soustraire l'année en cours avec l'année de naissance, et juste faire un test concernant le mois et le jour pour savoir si son anniversaire est déjà passé ou non.

[aityahia]

Et qu'est-ce qui te pose de problème ? Tu n'as qu'à soustraire l'année en cours avec l'année de naissance, et juste faire un test concernant le mois et le jour pour savoir si son anniversaire est déjà passé ou non.

pour vous quelqu'un qui est né le 31 décembre 2006 ce retrouve le 01/01/2007 au matin avec un ans d'age .

vous pouvez utilser la fonction YearsBetween de l'unité DateUtils.

si vous voulez un calcule particulier tu devra écrire ta propre fonction.

[MiJack]

pour vous quelqu'un qui est né le 31 décembre 2006 ce retrouve le 01/01/2007 au matin avec un ans d'age .

Ah non il faut bien lire mon message : on soustrait 2007 à 2006 = 1, et ensuite comme je l'ai écrit juste faire un test pour savoir si son anniversaire est passé, et comme ce n'est pas le cas (1er janvier < 31 décembre), on soustrait 1 au résultat, donc 0 an

[walid_kerkoub]

mais où avais-je la tête ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
      DecodeDate(Date(), YearA, MonthA, DayA);
                DecodeDate(StrToDate(Self.Edit1.Text), YearN, MonthN, DayN);
 
                  if MonthA<MonthN then
                    age:=yearA-yearN-1
                  else
                      if MonthA>MonthN then
                          age:=YearA-YearN
                      else
                           if DayA<DayN then
                                age:=yearA-YearN-1
                            else
                                 age:=yearA-yearN;
 
                Self.Edit2.Text:=IntToStr(age);

Merci MiJack.

[ShaiLeTroll]

ou plus court (soucis avec bissextile)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

YearsBetween(Date(), StrToDate(Self.Edit1.Text));

[aityahia]

il ne faut pas réinventé la roue.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Try
   Edit2.Text:=IntTostr(YearsBetween(Now,StrToDate(Edit1.Text))); 
Except
 Edit2.Text := 'Erreur, Date de naissance Incorrecte';
end;

[walid_kerkoub]

ton code est plus simple, je ne connaissait pas l'existance de la fonction YearsBetween.

Merci à tous.

[CapJack]

pour vous quelqu'un qui est né le 31 décembre 2006 ce retrouve le 01/01/2007 au matin avec un ans d'age .

Oui. L'âge en années, c'est le nombre d'années entières qu'on a vécu, c'est la partie entière de l'âge décimal en années, donc oui.