Here's a function I wrote to turn a range of ages into a pair of date-of-birth boundaries for use in database queries (or wherever else a date-of-birth boundary is more useful than an age range). Comments and suggestions for improvement are welcome.

Updated: prettier variable names, better error handling.

Updated: Removing use of now()

=item DoBrangefromAges REFERENCEDATE MINAGE MAXAGE
Given a REFERENCEDATE from which to calculate, minimum age MINAGE, and
an optional maximum age MAXAGE, this function returns two strings in
YYYY-MM-DD format, suitable for use in SQL queries, e.g., 'WHERE ?<dob
AND dob<?', using the return values in order as parameters. If no
MAXAGE is given, date range is for the year spanning MINAGE only.
=cut
sub DoBrangefromAges {
    my ($querydate,$agemin,$agemax,$inclusive) = @_;
    die "[E] Minimum age omitted in DoBrangefromAges" unless (defined 
+$agemin and $agemin ne '');
    $agemin = int($agemin);
    $agemax = int($agemin) unless defined $agemax;
    $agemax = int($agemax);
    $inclusive = ($inclusive ? $inclusive : 0);
    my ($maxdob,$mindob) = ($querydate,$querydate);
    $maxdob->subtract(years => $agemin);
    $mindob->subtract(years => $agemax + 1);
    return $mindob->ymd('-'),$maxdob->ymd('-');
}

[download]

In reply to Get DoB Bounds from Age Range by over2sd

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.