LPARAMETERS tdBirthDate

lnAge = Year(Date()) - Year(tdBirthDate)

DO CASE
CASE Month(Date()) = Month(tdBirthDate)
   lnAge = lnAge + IIF(Day(Date()) < Day(tdBirthDate), 0, 1)
CASE Month(Date()) > Month(tdBirthDate)
   lnAge = lnAge + 1
ENDCASE

RETURN lnAge

HTH

>i need the code for calculating the age as follows:
>i habe a field where we input the date.
>i need to calculate the age on another field based on the current date