Here's a good one:

** Assumes DOB is a date expression

AGE = INT((VAL(DTOS(DATE())) - VAL(DTOS(DOB))) / 10000)

>Does someone have a routine that calculates someones's age based upon the current date?
>
>I have written one, but it does not account for leap years so it's basically useless and I don't want to reinvent the wheel. It's probably a common routine out there.
>
>Thanks for helping me again.