格式化日期:: Manip的Delta到天

时间:2012-02-08 12:46:07

标签: perl date

我有这个例程,

我想保存该delta来计算from-to对中所有天和天之间的天数 我有二维数组,我只需要工作日。

$date_from = 2012-02-09;
$date_to = 2012-02-13;
$delta_string = 4

sub calc_usage {
    use Date::Manip::Date;

    my $date_from;
    my $date_to;
    my $delta;

    my $i;
    for $i (0 .. $#DATE_HOLDER) {
        $date_from = new Date::Manip::Date;
        $date_to = new Date::Manip::Date;

        $date_from->parse($DATE_HOLDER[$i][0]);
        $date_to->parse($DATE_HOLDER[$i][1]);

        $delta = $date_from->calc($date_to, "business");

    }

}

1 个答案:

答案 0 :(得分:2)

要检索delta值,您必须使用以下内容:

my @val = $delta->value();

给出了7个元素的数组,其中:

$val[0]   holds years
$val[1]   holds months
$val[2]   holds weeks
$val[3]   holds days
$val[4]   holds hours
$val[5]   holds minutes
$val[6]   holds seconds

您也可以在标量上下文中使用它:

my $val = $delta->value();

给出一个字符串,其中包含相同的7个元素冒号:

years:months:weeks:days:hours:minutes:seconds
相关问题