３ヶ月前の年月を求めたいです

質問

perlにて、現在の年月から、３ヶ月まえの年月を
求めたいのですが、苦戦しております。

Date::Calcモジュールを使って、うまくできそうなんですが、悩んでいます。

回答、よろしくお願い致します。

回答No.2

Ethersky · ベストアンサー

Date::Calcを使うなら

use Date::Calc qw(:all);
($year,$month,$day) = Add_Delta_YM(Today(),0,-3);

お礼

ありがとうございます。
迅速な回答、ありがとうございました。

回答No.1

Dpop

Date::Calc ではありませんが(^^;)

print month_add("2004/5/28", -3). "\n";
exit;

sub month_add {
my($ymd, $plus) = @_;
my($y, $m, $d) = split('/', $ymd);

$m += $plus;
while ($m > 12) {
$y++;
$m = 1;
}
while ($m < 1) {
$y--;
$m = 12;
}

$ymd = join('/', $y, $m, $d);
($ymd);
}

こんな感じでもできます。
ただ。日の正規化をどうするのか書かれていないので、やっていません。

お礼

ありがとうございます。
モジュールを使わなくても、できるんですね。
勉強になりました。