Obtener la edad con la fecha de nacimiento

 Para el ejemplo crearemos un Webform con:

• Calendar1
• Button1
• Label1

 

 Creamos la función que calculara la edad en años:

    Private Function CalcularEdad(fechaNacimiento As Date) As Integer

        Dim hoy As Date = Date.Today

        Dim edad As Integer = hoy.Year - fechaNacimiento.Year

        ' Verifica si ya cumplió años en el año actual

        If (hoy.Month < fechaNacimiento.Month) OrElse (hoy.Month = fechaNacimiento.Month AndAlso hoy.Day < fechaNacimiento.Day) Then

            edad -= 1

        End If

        Return edad

    End Function

Llamamos la función en el botón:

    Protected Sub Button1_Click(sender As Object, e As EventArgs)

        Dim fechaNacimiento As Date = Calendar1.SelectedDate

        Dim edad As Integer = CalcularEdad(fechaNacimiento)

        Label1.Text = "Edad: " & edad.ToString() & " años"

    End Sub

Ejecutamos la Webform, seleccionamos una fecha en el calendario y presionamos el botón Calcular edad: