[VBA] arrondir une diffDate

Bonjour,

Je fais une différence entre deux dates:

Code:

---

1 2	Me.AgeEnfant.Value = Int(DateDiff("m", Me.DateNaiss.Value, Me.DateQuestion.Value) / 12)

---

Le problème est que si jamais l'enfant a par exemple 3 ans et 11 mois j'aurais la valeur 4 ans or je dois absolument avoir 3 ans

Je n'arrive pas à trouver une autre fonction qui arrondisse...Mal cherché sans doute ?

Merci pour votre coup de main...

Bonjour,

Voici une fonction qui renvoie l'âge :

Code:

---

1 2 3 4

Public Function fctAge(DateNaiss As Date, DateQuest As Date) As Integer fctAge = DateDiff("yyyy", DateNaiss, DateQuest) If DateDiff("d", DateAdd("yyyy", fctAge, DateNaiss), DateQuest) < 0 Then fctAge = fctAge - 1 End Function

---

Bon courage,

PGZ

Merci, je teste ça tout de suite

Je vais aussi l'adapter pour les enfants en dessous de de 1an, pour que le programme n'arrondisse pas au mois supérieur.

Bonne journée