Foro de elhacker.net

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.

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

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