If all you want is the "year value" of a person's age, you
could divide by 365, after you added one to the number
of days for each of the leap years since the person's birth.
You could calculate this offset by subtracting their
birth year from the current year and dividing the result by
four. This works becuase they can't have been born both
before and after Feb 29th. Something like: 

use integer;

#...code ommited; obtain $days from FROM_DAYS()
#                 and $birth_year from database

my $this_year;
my @time;
my $raw_years;
my $num_leaps;
my $int_years;
my $float_years;

@time = localtime(time);
$this_year = $time[5] + 1900;
$raw_years = $this_year - $birth_year;
$num_leaps = $raw_years / 4;
$days += $num_leaps;

$int_years = $days / 365;

no integer;

$float_years = $days / 365;

if ($int_years == $float_years) {
   print "Today's your birthday!";
}

#...Then do whatever else you're going to do

[download]
I used a few more variable declarations than I would normally
but I wanted to clarify what I was doing. It's
quick and dirty, but probably works...
Simplicus

In reply to RE: Calculating a persons age based on their birthday. by Simplicus
in thread Calculating a persons age based on their birthday. by artful

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.