good chemistry is complicated, and a little bit messy -LW |
|
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
As far as I understand, you would like to know the number of full years the person is alive?
So, assuming you have only the number of day, we can do the following: --- my $year = (localtime)[5]+1900; my $fullyears=0; $nod = xxxx; #number of days goes here... while ($nod > 365) { if ( $year % 4) {$nod=$nod-365} else {$nod=$nod-366}; #check for the leap year. $year--; $fullyears++; }; print "$fullyears\n"; --- Rather simple but m.b. not so gracefull solution :) You see, you do not need any special modules. In reply to Re: Calculating a persons age based on their birthday.
by Maqs
|
|