pas mal olixelle je test .... et j'essaye de rajouter le nombre de mois et de jours ...

désolé j'avais changer le nom des strings avant le post pour la présentation  ! ^^

ciao bon dev....

    Protected Sub calculage()
        Dim str As String = "26/01/1977"
        Dim datetimenow = DateTime.Now
        Dim datedenaissance = CDate(str)
        Dim age As Integer
        Dim str2 As String

        age = CInt(Now.Year - datedenaissance.Year)
        str3 = " Age : " & age & " ans"
        If (datedenaissance.Month > Now.Month) Then

            age = age - 1
            str2 = " Age : " & age & " ans"
        End If
        If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then

            age = age - 1
            str2 = " Age : " & age & " ans"
        End If
    End Sub

tu est tombé amoureux de ma sub bidou ?

ça calcul l'âge !! j'avais pas promis la lune ^^ (niveau débutant) je suis sûr que ça peu servir à quelqu'un (moi ça m'aurais fais gagner du temps)

bon code merci !!

bon code bien expliquer