calculer l'age directement à partir de la date de naissance

Question

Bonjour &#224; tous,





Voil&#224; j'ai un formulaire &#224; developper, et je dois entrer les infos des
&#233;l&#232;ves d'un lyc&#233;e. Donc j'ai un Textbox Date de naissance, je l'entrer
au format JJ/MM/AAAA, et j'aimerai que sur le texbox du dessous
apparaisse l'age calcul&#233; directement. Merci pour votre aide.

cs_CanisLupus · Answer

Salut,

Si c'est du VB6, vois du c&#244;t&#233; de datediff().

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Kangourou_Nomade · Answer

ou alors tu t'eclate a decouper la string et a calculer toutes les annees bisextiles lol
Le Rasta fou rien, vous le savez bien

Renfield · Answer

tu peux utiliser DateDiff, comme le sugg&#232;re CanisLupus.

&#224; noter que DateDiff ne peux donner de diff&#233;rence en ann&#233;es (BUG) ....
elle ne fais que la soustraction des ann&#233;es....

une solution est  :

a = int(datediff ( "D", cdate("31/12/1983"), date) / 365.25)
ou a est finallement ton age ^^

*remplacer 31/12/1983 par votre date de naissance, c'est ici la mienne...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_CanisLupus · Answer

Renfeld, je pensais &#224; :

age=datediff("yyyy",datenaissance,date) et &#231;a fonctionne tr&#232;s bien pour ce qui est d'obtenir un age en ann&#233;e.

Sinon, il reste le age = year(date) - year(datenaissance)

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Renfield · Answer

age = datediff("yyyy",cdate("31/12/1983"),date)
effectue en interne
age = year(date) - year(cdate("31/12/1983"))

ce qui est complètement faux...

2006 - 1983 => 23 ....   mais ca ne prend pas en compte le fait que la date soit passée ou pas.

j'ai 22 ans, pas 23

je vous invite a faire le test, et favoriser :
age = int(datediff ( "D", cdate("31/12/1983"), date) / 365.25)

swordjet19 · Answer

Merci pour vos r&#233;ponses. Mais j'ai pa compris grande chose...je suis d&#233;butant, et je sais meme pas o&#249; mettre le code lol



age = int(datediff ( "D", cdate("31/12/1983"), date) / 365.25)



sachant que j'ai deux textbox.



Txtdatenaiss o&#249; je rentre la date de naissance de quelqu'un et Txtage qui se remplit automatiquement.



Merci pour vos pr&#233;cisions

cs_CanisLupus · Answer

OK, tu as raison. 

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Renfield · Answer

Private Sub Txtdatenaiss_Change()
    Txtage.Text =  CStr ( int(datediff ( "D", cdate(Txtdatenaiss.Text), date) / 365.25) )
End Sub

Renfield
Admin CodeS-SourceS - MVP Visual Basic

ScSami · Answer

Ben dit donc Renfield, t'es n&#233; un bien dr&#244;le de jour!!!

Renfield · Answer

géniale cette date, toujours du monde, la fête....

ScSami · Answer

des coups feux en l'air, 
des feux d'artifices, 
des cowgirls, des callgirls aussi ;-), des kdo, des ptites bulles de champ, wai, c'est vrai, a y r&#233;fl&#233;chir mieux, c'est pas si mal finalement 

Enjoy 

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

PCPT · Answer

et dans 30 ans tu diras &#234;tre du 1er janvier pour ne pas para&#238;tre 1an de plus

Renfield · Answer

d'ailleurs même :

Private Sub Txtdatenaiss_Change()
    If IsDate ( Txtdatenaiss.Text ) Then
        Txtage.Text =  CStr ( int(datediff ( "D", cdate(Txtdatenaiss.Text), date) / 365.25) ) & " ans"
   Else
        Txtage.Text =  VbNullString
   End If
End Sub

serais plus apporprié, lors de la saisie

Calculer l'age directement à partir de la date de naissance

13 réponses

Discussions similaires