Saltar al contenido

Calcular edad con fecha de nacimiento - exacto

publicado

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

Featured Replies

publicado
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

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.