有沒有好的模塊計(jì)算日期

kggg

請(qǐng)教一下,　有沒有什么好的模塊計(jì)算日期的加減

如計(jì)算2015-10-30的后一天,　或者2015-10-01的前一天的日期.

　

jason680

回復(fù) 1# kggg

DateTime
   

kggg

回復(fù) 2# jason680

看了一下datetime模塊， 看到add可以往前加日期， 沒看到往后減日期的方法？


   

jason680

回復(fù) 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

回復(fù) 4# jason680

你的意思是先計(jì)算下個(gè)月最后一天,　再來(lái)判斷?

找到一個(gè)模塊 date::manip 比較好的處理這種情況

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


   

jason680

回復(fù) 5# kggg

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

kggg

回復(fù) 6# jason680

謝謝啊.
剛剛打到這個(gè)還是蠻適用的,

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 );