Recherche
Recherche
Les mémos
Je débute...
Visites

 997940 visiteurs

 2 visiteurs en ligne

FAQ
Déplier Fermer  Problèmes de Date

Syntaxe dans une zone de texte:

= AgeMoisAn(DateNaissance)

Syntaxe dans une requête:

Age: AgeMoisAn(DateNaissance)

 

Function AgeMoisAns(DateSaisie As Date) As String
    Dim DateRef As Date
    DateRef = Date
    Select Case Month(DateRef) < Month(DateSaisie)
        Case True
            AgeMoisAns = DateDiff("yyyy", DateSaisie, DateRef) - 1 & " ans et " & _
                         12 - (Month(DateSaisie) - Month(DateRef)) & " mois"
        Case False
            AgeMoisAns = DateDiff("yyyy", DateSaisie, DateRef) & " ans et " & _
                         (Month(DateRef) - Month(DateSaisie)) & " mois"
    End Select
End Function

 


Dernière modification :03/07/2006 : 02:39 Hyperlien