Help for this page

Select Code to Download

Select or download this

use Date::Manip; 
($weeks,$days,$hours,$minutes,$seconds) = 
    Delta_Format($timespan . "s", 0, qw"%wh %dv %hv %mv %sd");

Select or download this

use Date::Manip 6.13; 
my $deltao = Date::Manip::Delta->new($timespan . "s");
($weeks,$days,$hours,$minutes,$seconds) = 
    $deltao->printf(qw"%www %ddd %hhh %mmm %sss");