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