Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
    $year = ( $year > 90 ? '19' : '20' ) . $year;
    DateTime->new( year => $year, month => $month, day => $day );
}
  2. or download this
    Output:

Diff in month between 30/06/1996 and 
...
12/10/00 : 53
01/25/01 : 54
02/27/01 : 55