Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;
use Date::Calc qw/Delta_YMDHMS/;
...
my ( $D_y, $D_m, $D_d, $Dh, $Dm, $Ds ) = Delta_YMDHMS( @start, @end );

say "The difference between $start and $end is:\nYears: $D_y, Months: 
+$D_m, Days: $D_d, Hours: $Dh, Minutes: $Dm, Seconds: $Ds";
  2. or download this
    The difference between 2012-08-08 17:14:22 and 2012-08-10 17:14:22 is:
Years: 0, Months: 0, Days: 2, Hours: 0, Minutes: 0, Seconds: 0