Jim & Joy,
(that has a ring to it *grin*)
Calculating years using this method (dividing by 365.25) does not work properly in all cases. Specifically, it falls apart on the person's birthday, when the number of years is not divisible evenly by 4.
>
>You can mess with this:
>
>
?dob({^1987/05/02})
>
>PROCEDURE dob
> LPARAMETERS tDOB
>
> nYear = INT( ( DATE( ) - tDOB) / 365.25 )
> nMonth = ( MOD( ( DATE( ) - tDOB), 365.25 ) ) / 30
>
> cAge = ALLTRIM( STR( nYear ) ) + " years and " ;
> + ALLTRIM( STR( nMonth, 4 ,1 ) ) + " months"
>
> RETURN cAge
>
Steve Gibson