Just another way ;)

#!/usr/bin/perl -w
use strict;
use DateTime;

my $date = [ 
    qw{ 
      06/30/96
      08/07/97
      09/05/97
      12/11/97
      03/26/98
      07/17/98
      10/23/98
      11/12/98
      01/14/99
      04/10/99
      05/27/99
      02/10/00
      03/10/00
      03/15/00
      03/15/00
      03/30/00
      06/15/00
      07/13/00
      08/03/00
      09/07/00
      09/30/00
      12/10/00
      01/25/01
      02/27/01 }
];

my $oldest = dt( shift @$date );

printf "Diff in month between %s and \n", $oldest->dmy('/');
printf "%s : %s\n",  $_, dt($_)->subtract_datetime($oldest)->in_units(
+'months') for @$date;

sub dt {
    my ( $month, $day, $year ) = split /\//, shift;
    $year = ( $year > 90 ? '19' : '20' ) . $year;
    DateTime->new( year => $year, month => $month, day => $day );
}

[download]
Output:

Diff in month between 30/06/1996 and 
08/07/97 : 13
09/05/97 : 14
12/11/97 : 17
03/26/98 : 20
07/17/98 : 24
10/23/98 : 27
11/12/98 : 28
01/14/99 : 30
04/10/99 : 33
05/27/99 : 34
02/10/00 : 43
03/10/00 : 44
03/15/00 : 44
03/15/00 : 44
03/30/00 : 45
06/15/00 : 47
07/13/00 : 48
08/03/00 : 49
09/07/00 : 50
09/30/00 : 51
12/10/00 : 53
01/25/01 : 54
02/27/01 : 55

[download]

hth,
PooLpi

'Ebry haffa hoe hab im tik a bush'. Jamaican proverb

In reply to Re: compare dates? by poolpi
in thread compare dates? by Anonymous Monk

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.