Déterminer l'âge à partir de la date de naissance

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 694 fois - Téléchargée 36 fois

Contenu du snippet

Déterminer l'âge à partir de la date de naissance

Source / Exemple :


Dim a As Integer

'text1 = date de naissance sous forme 01/01/2003' 
année_nais = DateTime.Year(Text1) 
mois_nais = DateTime.Month(Text1)
jour_nais = DateTime.Day(Text1)

année = DateTime.Year(Date)
mois = DateTime.Month(Date)
jour = DateTime.Day(Date)

a = année - année_nais

If mois_nais > mois Then Age = a - 1
If mois_nais < mois Then Age = a
If mois_nais = mois Then GoTo line1

GoTo lastline
line1:
If jour_nais > jour Then Age = a - 1
If jour_nais <= jour Then Age = a

lastline:

End Sub

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
54 -
ce serait bien de donner la declaration de ta procédure ...(qui ferait mieux , d'ailleurs d'être une fonction)
Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
54 -
et moi qui pensait que ca suffisait ! :

AgeDeRenfield = ( date - cdate("31/12/1983"))/365.25

soit le nombre de jours entre les dates , divisé par 365.25 (année bisextiles)

bon, c'est pas parfait, mais ca fonctionne.......
sebleboss2002
Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
3 avril 2005
-
Alors tu as 19,4086242299795 ans, si j'ai bien compris ;)
Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
54 -
exact, tu retire la virgule si ca t'amuses, mais j'ai effectivement 19 ans.....
sebleboss2002
Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
3 avril 2005
-
mouai.... jusque là, tout va bien. Mais ce serait encore plus mieux de donner le nombre de jours mois et années d'une personne.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.