Sujet Précédent Sujet Suivant

CALCULER L'AGE EN ANNEES, MOIS ET JOURS

Philippou22 - 25 oct. 2001 à 15:18
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014 - 26 juil. 2003 à 03:26

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/885-calculer-l-age-en-annees-mois-et-jours

cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
26 juil. 2003 à 03:26

C'est tout ce que vous voulez sauf inutile

cs_yoman64 Messages postés 592 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 4 décembre 2008
8 juin 2002 à 09:29

Vraiment inutile mais c le fun kan meme

cs_bassma Messages postés 6 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 10 août 2005
27 avril 2002 à 00:37

si il y a une faille que j'ai trouve et corrige.

a la place de :

Dim sdt1 As Date
Dim sdt2 As Date
sdt1 = DateValue("1" & "/" & mN1 & "/" & aN1)
sdt2 = DateValue("1" & "/" & mN1 + 1 & "/" & aN1)
Jdif = DateDiff("d", sdt1, sdt2)
'
il faut mettre :

If mN1 <> 12 Then
Dim sdt1 As Date
Dim sdt2 As Date
sdt1 = DateValue("1" & "/" & mN1 & "/" & aN1)
sdt2 = DateValue("1" & "/" & mN1 + 1 & "/" & aN1)
Jdif = DateDiff("d", sdt1, sdt2)
Else
Jdif = 31
End If

Philippou22
25 oct. 2001 à 15:18

Merci, ta fonction na pas de faille, la au moin mes ages vont bien fonctionner

Discussions similaires

Convertir nombre de jours en année, mois et jours

calcul de l'age

calcul 45 jours fin de mois

Calculer l'age de quelqu'un.

comment calculer l'age d'une persone : aide svp

Votre réponse

Discussions similaires