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
Posted
vie, may 31 2002 23:45
by
Maverick