Calcule de votre age avec ans mois et jours

Soyez le premier à donner votre avis sur cette source.

Vue 14 081 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

Raikou4
Messages postés
2
Date d'inscription
dimanche 15 octobre 2006
Statut
Membre
Dernière intervention
19 octobre 2006

Petit bug: Mets un jour plus tard qu'aujourd'hui.
hourrane
Messages postés
29
Date d'inscription
dimanche 8 juin 2003
Statut
Membre
Dernière intervention
2 février 2009

Je crois que votre application ne tiens pas compte du fait que le mois de fevrier (28 jours). essaie avec une date de naissance par exemple 28/02/19??.
Bon courage.
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.
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
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 !!

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.