２つの日付・時間の差分を求めるには

質問

２つの日付、時間の差分を求めるには、
timelocal を使うのかと思うのですが、

$time1 = timelocal($sec1,$min1,$hours1,$day1,$month1,$year1);
$time2 = timelocal($sec2,$min2,$hours2,$day2,$month2,$year2);

$result = int(($time2 - $time1)/(60*60*24));

return $result;

ではいけないのでしょうか？

回答No.2

BLUEPIXY · ベストアンサー

経過日数を求めるのですよね。
問題ないと思います。
問題があるとすると、１９７０年以降の日付じゃないとだめだということですね。
Date::Calc モジュールを使うと時刻計算で楽できます。
use Date::Calc qw(Delta_Days);
#monthは、Date::Calcは、１始まり
#西暦は１から使える
$d = Delta_Days($year1,$month1,$day1, $year2,$month2,$day2);
print "$d日経過しました\n";

お礼

回答ありがとうございます。
やってみます。

回答No.3

Ethersky

ちなみにtimelocalに入れる時は月は-1しないとダメです。
（1月→0 2月→1 ・・・ 12月→11）
-1しなくても1月から11月までなら問題なく動いているように見えますが、12月になると0～11の範囲外になるのでTime::Localに怒られます。

お礼

ありがとうございます。
うっかり忘れてました。

回答No.1

SE-1

以下のサイトの「経過日数を求める」がご参考になると思います。

参考URL：

http://cocohome.hp.infoseek.co.jp/cocohome/l_nisukeisan.html

お礼

参考になるサイトをご紹介いただき、ありがとうございます。