Conocer el número de Años entre dos fechas

Este código calcula el número de años entre dos fechas. Muy válido para calcular la edad de una persona teniendo en cuenta la fecha actual. Usa la función DateSerial de creación de fechas.

Public Function AñosEntre(ByVal Fecha1 As Date, ByVal Fecha2 As Date) As Integer
    Dim Años As Integer
    Años = DateDiff("yyyy", Fecha1, Fecha2)
    If Fecha1 < DateSerial(Year(Fecha1), Month(Fecha2), Day(Fecha2)) Then
        Años = Años - 1
    End If
    AñosEntre = Años
End Function

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