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

[email protected] 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

_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to