begin process at 2008 08 29 21:49:01
1 233 910 membres
431 nouveaux aujourd'hui
14 294 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : calculer l'age [ Base de données / Autre ] (tchicomico)

calculer l'age le 14/04/2008 11:01:59

tchicomico
bonjour
je suis encore un debutant en delphi et j'ai un pb dans mon programme
dans ma table , je vx calculer l'age des personne à partir d'un champs de type date contenant la date de naissance de chaque personne
Merci

Re : calculer l'age le 14/04/2008 11:49:24

HAFTARIFOUAD
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.

Re : calculer l'age le 14/04/2008 11:52:23

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

Re : calculer l'age le 14/04/2008 16:42:45

matrix1
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

Re : calculer l'age le 19/04/2008 11:31:25

Rematrix

Même pas un remerciment pas cool.

Re : calculer l'age le 21/04/2008 14:41:08

tchicomico
c'est bien marché
merci bcp Fouad 
et merci bcp  Rematrix


Classé sous : date, age, calculer

Participer à cet échange

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
SITE MARCHAND LOCATION...
Budget : 3 000€
SITE MARCHAND POUR HOTEL
Budget : 4 000€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS