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

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

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

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

No.2 ベストアンサー 回答者： Ethersky 回答日時： 2004/05/28 17:45

Date::Calcを使うなら

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

この回答へのお礼

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

お礼日時：2004/05/28 18:33

No.1 回答者： Dpop 回答日時： 2004/05/28 16:46

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

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

この回答へのお礼

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

お礼日時：2004/05/28 18:34