Visual Basic - ¿Calcular la edad desde la fecha de nacimiento? - Visual Basic EXCEL?

Dim Edad As Integer

Edad = DateDiff( "yyyy", CDate(Text1.Text), Date)

Text2.Text = Format(Edad)

Private Sub CommandButton1_Click()

Dim evaluacionanos As Integer

Dim evaluacionmes As Integer

Dim evaluaciondias As Integer

Dim actual As Date

Dim nacimiento As Date

Dim nacimientoanos As Integer

Dim nacimientomes As Integer

Dim nacimientodias As Integer

actual = tbxactual

nacimiento = txbnacimiento

 evaluacionanos = Year(actual)

  evaluacionmes = Month(actual)

 evaluaciondias = Day(actual)

 nacimientoanos = Year(nacimiento)

 nacimientomes = Month(nacimiento)

 nacimientodias = Day(nacimiento)

If evaluaciondias < nacimientodias Then

    evaluaciondias1 = evaluaciondias + 30

    Dias = evaluaciondias1 - nacimientodias

    evaluacionmes = evaluacionmes - 1

       'TextBox9 = Dias

        Else

   Dias = evaluaciondias - nacimientodias

   'TextBox9 = Dias

      End If

  If evaluacionmes < nacimientomes Then

    evaluacionmes1 = evaluacionmes + 12

    mes = evaluacionmes1 - nacimientomes

    evaluacionanos = evaluacionanos - 1

    anos = evaluacionanos - nacimientoanos

   'TextBox8 = mes

  'TextBox7 = anos

       Else

       mes = evaluacionmes - nacimientomes

       anos = evaluacionanos - nacimientoanos

  'TextBox8 = mes

  'TextBox7 = anos

    End If

    TextBox10 = anos & " años, " & mes & " mes(es) y " & Dias & " días"

End Sub

Function Edad() As Integer

    Dim Nacimiento As Date

    Dim Hoy As Date

    Dim Anos As Double

    Nacimiento = ThisWorkbook.Names("FechaNacimiento").RefersToRange.Value 'Cojo fecha de un rango con nombre

    Hoy = Format(Now, "dd/mm/yyyy")

    Anos = DateDiff("yyyy", Nacimiento, Hoy) 'Calculo de años sin tener en cuenta si se han cumplido o no.

    'Para verificar, le sumo los años a la fecha de nacimiento

    EdadHoy = DateAdd("yyyy", Anos, Nacimiento)

    'En caso de que el calculo anterior sea mayor que hoy, restamos uno.

    If EdadHoy > Hoy Then

        Edad = Anos - 1

    Else

        Edad = Anos

    End If

End Function

= SIFECHA ( celda ; AHORA() ; "y" )

Function Edad(FechaNac As Date)

Dim Años As Integer

    Años = Year(Now) - Year(FechaNac)

    If Month(Now) < Month(FechaNac) Then Años = Años - 1 'todavía no ha llegado el mes de su cumple

    If Month(Now) = Month(FechaNac) And Day(Now) < Day(FechaNac) Then Años = Años - 1 'es el mes pero no ha llegado el día de su cumple

    Edad = Años

End Function

If isdate(Text1.text) then

    Text2.Text = Edad(CDate(Text1.Text)) & " años."

else

    Text2.Text = ""

end if

=SIFECHA(G3;H3;"Y")&" "&"Años,"&" "&SIFECHA(G3;H3;"YM")&" "&"Meses y"&" "&SIFECHA(G3;H3;"MD")&" "&"Dias"

Private Sub frmCaptura_Activated(sender As Object, e As EventArgs) Handles Me.Activated

'////////////////////////DECLARO LA VARIABLES

    Dim fechaNacimiento As DateTime = frmbusqueda.txt11Fnac.Text

    Dim fechacorte As DateTime = frmParametros.txt2.Text

    Dim qtydaystotales As Long

    Dim ts As TimeSpan = fechacorte - fechaNacimiento

    Dim qtyYear, qtyMonth, qtyDays As Integer

'///////////////// REALIZO EL CALCULO EN AÑOS, MESES Y DIAS      

    qtydaystotales = CInt(ts.Days)

    qtyYear = CInt(qtydaystotales / 365) '///////////////////////////// SE CALCULA EN AÑOS

    qtyMonth = CInt((qtydaystotales - (qtyYear * 365)) / 30)'///////////////SE CALCULA EN MESES 

    qtyDays = qtydaystotales - ((qtyYear * 365) + (qtyMonth * 30))'/////////////////// SE CALCULA EN DIAS 

'//////////////////////// MUESTRO LOS VALORES EN LAS CAJAS DE TEXTBOX AGREGADOS

    txtAnio.Text = qtyYear

    txtMes.Text = qtyMonth

    txtDias.Text = qtyDays

End Sub