CALCULE DE VOTRE AGE AVEC ANS MOIS ET JOURS

 Dim a_a, m_a, j_a, a_n, m_n, j_n As Integer
    Dim a, m, j As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txt_date_aujourd.Text = System.DateTime.Now.ToShortDateString
    End Sub
    Private Sub cmd_calculer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_calculer.Click
        a_a = Now.Year
        m_a = Now.Month
        j_a = Now.Day
        '------------------------
        a_n = CDate(dtp_naissance.Text).Year
        m_n = CDate(dtp_naissance.Text).Month
        j_n = CDate(dtp_naissance.Text).Day
        '------------------------
        If a_a >= a_n And m_a >= m_n And j_a >= j_n Then
            a = a_a - a_n
            m = m_a - m_n
            j = j_a - j_n
            MsgBox("votre age est    " & a & "       ans    " & m & "     mois  " & j & "           jours" & "       remarque : chaque jour que vous passez de votre vie soyez sur qu'il vous apperochera de la mort")
        End If
        '-------------------------------------------------------------------
        If a_a >= a_n And m_a >= m_n And j_a < j_n Then
            a = a_a - a_n
            If m_a = m_n Then
                m = 0
            Else
                m = (m_a - m_n) - 1
            End If

            j = Date.DaysInMonth(a_a, m_a) + (j_a - j_n)
            MsgBox("votre age est    " & a & "       ans    " & m & "     mois  " & j & "           jours" & "       remarque : chaque jour que vous passez de votre vie soyez sur qu'il vous apperochera de la mort")
        End If
        '---------------------------------------------------------------------------------
        If a_a >= a_n And m_a < m_n And j_a >= j_n Then
            If a_a = a_n Then
                a = 0
            Else
                a = (a_a - a_n) - 1
            End If
            m = 12 + (m_a - m_n)
            j = j_a - j_n
            MsgBox("votre age est    " & a & "       ans    " & m & "     mois  " & j & "           jours" & "       remarque : chaque jour que vous passez de votre vie soyez sur qu'il vous apperochera de la mort")
        End If
        '------------------------------------------------------------------------------------
        If a_a >= a_n And m_a < m_n And j_a < j_n Then
            If a_a = a_n Then
                a = 0
            Else
                a = (a_a - a_n) - 1
            End If
            m = (12 + (m_a - m_n)) - 1
            j = Date.DaysInMonth(a_a, m_a) + (j_a - j_n)
            MsgBox("votre age est    " & a & "       ans    " & m & "     mois  " & j & "           jours" & "       remarque : chaque jour que vous passez de votre vie soyez sur qu'il vous apperochera de la mort")
        End If
        '------------------------------------------------------------------------------------------
        If a_n > a_a Then
            MsgBox("vous monquez de mois ????????????", MsgBoxStyle.Exclamation, "islamway")
        End If
    End Sub