calcul des dates

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Function[/COLOR] Age(R [COLOR=NAVY]As[/COLOR] Range) [COLOR=NAVY]As String[/COLOR]
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] D [COLOR=NAVY]As Date
Dim[/COLOR] A [COLOR=NAVY]As Byte[/COLOR], M [COLOR=NAVY]As Byte[/COLOR], J [COLOR=NAVY]As Byte
    If[/COLOR] IsDate(R.Value) [COLOR=NAVY]Then[/COLOR]
        D = R.Value
        A = DateDiff("yyyy", D, [COLOR=NAVY]Date[/COLOR])
        D = DateAdd("yyyy", A, D)
        M = DateDiff("m", D, [COLOR=NAVY]Date[/COLOR])
        D = DateAdd("m", M, D)
        J = DateDiff("d", D, [COLOR=NAVY]Date[/COLOR])
        Age = A & " ans, " & M & " mois et " & J & " jours"
    [COLOR=NAVY]Else[/COLOR]
        Age = "Erreur!"
    [COLOR=NAVY]End If
End Function[/COLOR]