Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Nico" | J'ai un formulaire tout ce qu'il y a de plus simple. | En pied de formulaire je veux calculer le nombre d'enfants dont l'age est | inferieur à 18 ans ! | | Quelle est la formule ?
Il te faut une fonction qui calcule l'age des personnes...
Function fnAge(vDate As Variant) As Integer If IsNull(vDate) Then fnAge = 0: Exit Function fnAge = DateDiff("YYYY", vDate, Date) _ + (DateSerial(Year(Date), Month(vDate), Day(vDate)) > Date) End Function
ensuite, comme source d'une zone de texte, tu peux mettre qque chose comme:
"Nico"
| J'ai un formulaire tout ce qu'il y a de plus simple.
| En pied de formulaire je veux calculer le nombre d'enfants dont l'age est
| inferieur à 18 ans !
|
| Quelle est la formule ?
Il te faut une fonction qui calcule l'age des personnes...
Function fnAge(vDate As Variant) As Integer
If IsNull(vDate) Then fnAge = 0: Exit Function
fnAge = DateDiff("YYYY", vDate, Date) _
+ (DateSerial(Year(Date), Month(vDate), Day(vDate)) > Date)
End Function
ensuite, comme source d'une zone de texte, tu peux mettre qque chose comme:
"Nico" | J'ai un formulaire tout ce qu'il y a de plus simple. | En pied de formulaire je veux calculer le nombre d'enfants dont l'age est | inferieur à 18 ans ! | | Quelle est la formule ?
Il te faut une fonction qui calcule l'age des personnes...
Function fnAge(vDate As Variant) As Integer If IsNull(vDate) Then fnAge = 0: Exit Function fnAge = DateDiff("YYYY", vDate, Date) _ + (DateSerial(Year(Date), Month(vDate), Day(vDate)) > Date) End Function
ensuite, comme source d'une zone de texte, tu peux mettre qque chose comme:
