有没有好的模块计算日期

kggg

请教一下,　有没有什么好的模块计算日期的加减

如计算2015-10-30的后一天,　或者2015-10-01的前一天的日期.

　

jason680

回复 1# kggg

DateTime
   

kggg

回复 2# jason680

看了一下datetime模块， 看到add可以往前加日期， 没看到往后减日期的方法？


   

jason680

回复 3# kggg

$ perldoc DateTime
NAME
    DateTime - A date and time object
    ...

     my $first = DateTime
                   ->last_day_of_month( year => 2003, month => 3 )
                   ->...
                   ->...  <=answer here
   

kggg

回复 4# jason680

你的意思是先计算下个月最后一天,　再来判断?

找到一个模块 date::manip 比较好的处理这种情况

$date = DateCalc("today","+ 3 business days",\$err);
$date = DateCalc("2015-11-02","- 3 business days",\$err);


   

jason680

回复 5# kggg

>> ...看到add可以往前加日期， 没看到往后减日期的方法？
  加 ==> add
  减 ==> subtract

kggg

回复 6# jason680

谢谢啊.
刚刚打到这个还是蛮适用的,

use Date::Calc;

my $days = Date_to_Days(2015,11,01);
my  ($year,$month,$day) = Add_Delta_Days(1,1,1, $days );

say "$year-$month-$day";

my ( $yyyy, $mm, $dd ) = ( 2009, 9, 2 );
my @date = Add_Delta_Days( $yyyy, $mm, $dd, -3 );
say join( '-', @date );