Calcular la edad actual

Calcular la edad actual, conociendo la fecha de nacimiento sobre la fecha en curso.

Incluir el siguiente código en un formulario que contenga un TextBox (Text1) y un Botón (Command1):

Private Sub Command1_Click()
    MsgBox "Actualmente tiene " & Edad(Text1.Text) & " años."
End Sub

Function Edad(FechaNacimiento As Date) As Integer
    ' Se calcula la edad con respecto a la fecha del dia en curso
    If Month(Now) < Month(FechaNacimiento) Or (Month(Now) = Month(FechaNacimiento) And Day(Now) < Day(FechaNacimiento)) Then
        Edad = Year(Now) - Year(FechaNacimiento) - 1
    Else
        Edad = Year(Now) - Year(FechaNacimiento)
    End If
End Function

Otra opción más optimizada sería:

Function Edad(FechaNacimiento As Date) As Integer
    ' Se calcula la edad con respecto a la fecha del día en curso
    Edad = Int(DateDiff("d", FechaNacimiento, Now) / 365)
End Function

Esta ultima sugerencia sobre la función ha sido enviada por HITAROJO

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s