me autorespondo
de probar y probar pude calcular el tiempo por dias meses o años, solo es cambiar yyyy por d para dias o por m para meses
Function Age (varBirthDate)
Dim varAge
If IsNull(varBirthdate) then Age = 0: Exit Function
varAge = DateDiff("
yyyy ", varBirthDate, Now)
If Date < DateSerial(Year(Now), Month(varBirthDate), _
Day(varBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function
espero les sea util, sirve para muchas cosas.
<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">