Calcule de votre age avec ans mois et jours

Télécharger le projet
Commenter

Description

calcul de votre Âge avec ans mois et jours,si vous avez trouvez une err critiquez moi mais vous me donnez une solution..
merci..

Source / Exemple : 


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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_islamway)