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