Calcule de votre age avec ans mois et jours

Soyez le premier à donner votre avis sur cette source.

Vue 14 058 fois - Téléchargée 1 161 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Bananen bieger
Messages postés
2
Date d'inscription
vendredi 10 mars 2006
Statut
Membre
Dernière intervention
6 mai 2006
-
J'ai trouvé trois erreurs, Islamaway:
calcul avec e
critiquez avec er
et âge sans accent... lol

calcule de votre age avec ans mois et jours,si vous avez trouvez une err critiquer moi mais vous me donnez une solution..
merci..

Sinon le programme est nickel.
jean_marc_n2
Messages postés
170
Date d'inscription
jeudi 11 décembre 2003
Statut
Membre
Dernière intervention
24 janvier 2009
-
lol bananen!!
C'est l'hôpital qui se fout de la charité :-)

Les verbes à l'impératif, tu ne connais pas? C'est au programme de CM1! Un verbe du premier groupe comme "critiquer", à l'imératif, ça donne "critiquez". Quand on ne sait pas, on utilise la petite astuce de prendre un verbe du 3ème groupe, comme "prendre" par exemple, et on essaie. Que dirais tu:
"Prendre moi!"
"Prenez moi!"

A ton avis?

Donc, Bananen = -1234578 points sur ce coup la!
io_ost
Messages postés
151
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
6 février 2009
-
bon code merci !!
cs_islamway
Messages postés
24
Date d'inscription
samedi 6 mai 2006
Statut
Membre
Dernière intervention
23 décembre 2010
-
de rien io_ost
vbPink
Messages postés
23
Date d'inscription
mardi 8 août 2006
Statut
Membre
Dernière intervention
30 août 2006
-
"Prenez moi!"

en même temps, on dit "prenez-moi", mais bon.

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.