Computing the age of a person?

[Devin Asay]

On May 14, 2009, at 9:17 AM, J. Landman Gay wrote:

> klaus at major.on-rev.com wrote:
>> Hi all,
>>
>> I could need a hint on how to compute the age of a person when I have
>> the birthday.
>> The "convert to seconds" and "subtract"ion part is easy, but how to
>> proceed? :-)
>
> My variation, if all you need is the year:
>
> function getAge pDate
>    put the date into tNow
>    convert pDate to dateitems
>    convert tNow to dateitems
>    repeat with x = 1 to 3
>       put item x of tNow - item x of pDate & comma after tAge
>    end repeat
>    if item 2 of tAge < 0 or item 3 of tAge < 0

Shouldn't this be
      if item 2 of tAge < 0 OR (item 2 of tAge = 0 AND item 3 of tAge  
< 0)

Otherwise it returns the wrong age if the day of the month is less  
than the day of the month of the birthdate.

>    then subtract 1 from item 1 of tAge
>    return item 1 of tAge
> end getAge

Yours in math-challengedness,

Devin

Devin Asay
Humanities Technology and Research Support Center
Brigham Young University