calcular c.

[karmi]

hola foro, tengo un pequeño problema: necesito encontrar la edad de una persona y el cumples, si esta o ya cumplio años, tengo esto pero no me arroja bien el resultado.

[.mokk.]

Algo que ocupas saber esque por codigo podemos obtener la fecha actual por lo que seria mejor solo los campos del dia, mes y año de nacimiento y con eso podriamos jeje

Aqui te lo dejo como quedaria mas o menos

Código (vb.net) [Seleccionar] Expandir

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a1, m1, d1, a2, m2, d2 As Integer
        Dim fecha As DateTime = DateTime.Today
        a1 = año1.Text
        m1 = mes1.Text
        d1 = dia1.Text
        a2 = fecha.Year
        m2 = fecha.Month
        d2 = fecha.Day

        If (m2 > m1) Then
            Label1.Text = "Cumpliste "
        ElseIf (m2 < m1) Then
            Label1.Text = "Cumpliras "
        ElseIf (m2 = m1) Then
            If (d2 > d1) Then
                Label1.Text = "Cumpliste "
            ElseIf (d2 < d1) Then
                Label1.Text = "Cumpliras "
            Else
                Label1.Text = "Cumples "
            End If
        End If

        Label1.Text = Label1.Text + (a2 - a1).ToString + " años"

    End Sub
End Class