25/04/2005, 12:06
|
 | | | Fecha de Ingreso: mayo-2003 Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 22 años Puntos: 5 | |
hola, esta función la hice hace tiempo.,...
espero q t sirve...
Código:
Function Age(strBirthDate)
If IsNull(strBirthDate) then Age = 0: Exit Function
varAge = DateDiff("yyyy", strBirthDate, Now)
If Date < DateSerial(Year(Now), Month(strBirthDate), Day(strBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function
__________________
Saruman
One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them. |