Calculer l'age
Résolu
tchicomico
Messages postés
4
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
-
14 avril 2008 à 11:01
tchicomico Messages postés 4 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 29 juillet 2008 - 21 avril 2008 à 14:41
tchicomico Messages postés 4 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 29 juillet 2008 - 21 avril 2008 à 14:41
A voir également:
- Calculer age
- Calcule age - Meilleures réponses
- Calculer l'age de quelqu'un - Meilleures réponses
- Calculer age avec date de naissance ✓ - Forum Visual Basic 6
- Calculer iban ✓ - Forum VB.NET
- Calculer la hauteur d'un arbre ✓ - Forum C / C++ / C++.NET
- Moyenne age date ✓ - Forum SQL
- Calculer moyenne bac l - Forum Visual Basic 6
5 réponses
HAFTARIFOUAD
Messages postés
256
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011
14 avril 2008 à 11:52
14 avril 2008 à 11:52
il y a aussi DaysBetween(dateN,dateF)
cs_matrix1
Messages postés
169
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
15 avril 2008
14 avril 2008 à 16:42
14 avril 2008 à 16:42
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
(**********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
HAFTARIFOUAD
Messages postés
256
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011
14 avril 2008 à 11:49
14 avril 2008 à 11:49
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.
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.
Rematrix
Messages postés
115
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
16 juillet 2008
19 avril 2008 à 11:31
19 avril 2008 à 11:31
Même pas un remerciment pas cool.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tchicomico
Messages postés
4
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
21 avril 2008 à 14:41
21 avril 2008 à 14:41
c'est bien marché
merci bcp Fouad
et merci bcp Rematrix
merci bcp Fouad
et merci bcp Rematrix
