En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1219713 visiteurs

 7 visiteurs en ligne

Nous contacter

Contact

FAQ

Déplier Fermer  Problèmes de Date

Syntaxe : Dans une zone de texte: = fnAge(DateNaissance)

Syntaxe : Dans une requête: Age: fnAge(DateNaissance)

 

Function fnAge(DateNaissance As Variant) As Integer

If Not IsDate(DateNaissance) Then Exit Function

fnAge = DateDiff("yyyy", DateNaissance, Date) + (Format(Date, "mmdd") _
< Format(DateNaissance, "mmdd"))

End Function

 

 


Dernière modification :30/05/2006 : 00:04 Hyperlien 

Vous êtes ici :   Accueil » FAQ