Discussion :

[ip203]

Bonjour,

Je fais une différence entre deux dates:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[pgz]

Bonjour,

Voici une fonction qui renvoie l'âge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ip203]

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