Calcular edad con fecha de nacimiento - exacto

[Christian TM]

Private Sub TextBox10_Change()

Application.ScreenUpdating = False

On Error Resume Next

Dim cam As Integer

cam = Len(TextBox10.Text)

Select Case cam

Case 2

Me.TextBox10.Text = Me.TextBox10 & "/"

Case 5

Me.TextBox10.Text = Me.TextBox10 & "/"

End Select

Dim fecactual As Date

Dim fecnac As Date

Dim edadactual As String

fecnac = CDate(TextBox10.Value)

edadactual = DateDiff("d", fecnac, Now)

TextBox11.Text = edadactual

fecnac = CDate(TextBox10.Value)

edadactual = DateDiff("m", fecnac, Now)

TextBox12.Text = edadactual

fecnac = CDate(TextBox10.Value)

edadactual = DateDiff("yyyy", fecnac, Now)

TextBox13.Text = edadactual - 1

Application.ScreenUpdating = True

If TextBox11.Text <> Empty Then

TextBox11.Enabled = False

TextBox12.Enabled = False

TextBox13.Enabled = False

Else

TextBox11.Enabled = True

End If

End Sub

[Gerson Pineda]

Private Sub TextBox10_Change()

Application.ScreenUpdating = False

On Error Resume Next

Dim cam As Integer

cam = Len(TextBox10.Text)

Select Case cam

Case 2

Me.TextBox10.Text = Me.TextBox10 & "/"

Case 5

Me.TextBox10.Text = Me.TextBox10 & "/"

End Select

Dim fecactual As Date

Dim fecnac As Date

Dim edadactual As String

fecnac = CDate(TextBox10.Value)

edadactual = DateDiff("d", fecnac, Now)

TextBox11.Text = edadactual

fecnac = CDate(TextBox10.Value)

edadactual = DateDiff("m", fecnac, Now)

TextBox12.Text = edadactual

fecnac = CDate(TextBox10.Value)

edadactual = DateDiff("yyyy", fecnac, Now)

TextBox13.Text = edadactual - 1

Application.ScreenUpdating = True

If TextBox11.Text <> Empty Then

TextBox11.Enabled = False

TextBox12.Enabled = False

TextBox13.Enabled = False

Else

TextBox11.Enabled = True

End If

End Sub

Hola y se bienvenido al foro, pero al menos saluda y de paso debes leer las normas del foro, talvez despues de eso alguien se anima a colaborar contigo

Normas - Política - Términos | Ayuda Excel

Saludos

[Christian TM]

Buenas tarde tengo una duda sobre esta formulación, ya que no te da los datos exactos en dias y meses

[Gerson Pineda]

Buenas tarde tengo una duda sobre esta formulación, ya que no te da los datos exactos en dias y meses

Falta algo mas, lee las normas del foro

Normas - Política - Términos | Ayuda Excel

Saludos