Calcul de l'âge (années, mois, jours) en fonction de la date de naissance

Soyez le premier à donner votre avis sur cette source.

Vue 6 828 fois - Téléchargée 612 fois

Description

Bonjour à tous.

Voici un code pour calculer l'âge d'une personne à partir de sa date de naissance.
J'ai vu que d'autres personnes avaient cherché la même chose mais d'après les commentaires leur résultats ne sont pas toujours précis.

Prenons un exemple pour expliquer le code:
Nous sommes le 02/09/2004 et je suis né le 06/09/1986. C'est bientôt mon anniv d'ailleurs... bref! On ne peut pas soustraire 6 à 2 car 2>6 donc une astuce consiste à dire qu'au lieu d'être le 02/09 nous allons être le 02+31 AOUT... J'ai donc 33-6 jours.

Idem pour les mois : me voila en Aout (08) je vais dir que je suis en Vingtembre(!!) (12+8)/ 2003.
J'ai donc 20-9: 11 mois.

Pour les années la date du jour est forcément supérieure à celle de voter naissance (normalement!) donc pas de PB: 2003-1986 = 17 ans.

Voila j'espère avoir été clair car pas de commentaires dans la source.
Bonne journée à tous,
JPUJOL95

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

tmcuh
Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
non moi je suis pas d'accord, car ton system, ne prend pas en compte les années bisextil!!! exemple je suis née le 1 mars 2004... eh eh tu peux pas faire 28 jours du mois de février ;)
cs_SDan
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008
-
oui c'est vrai
jpujol95
Messages postés
60
Date d'inscription
dimanche 20 octobre 2002
Statut
Membre
Dernière intervention
5 septembre 2004
1 -
Si Si ca prend en compte les années bissextiles!

If Y = 2 Then --> Si on est au mois de fevrier
If (IsDate("29/02/" & CStr(Z))) = True Then
d = 29 --> 29 jours
Else
d = 28 --> 28 jours
End If
End If
cs_PROGRAMMIX
Messages postés
1134
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
Moi j'ai lu quelque part qu'il suffit de faire
(DateDuJour - DateDeNaissance) / 365,25...
cs_SDan
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008
-
Merci à jpujol95, maintenant, ç a marche

Bravo

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.