ココとPerlで遊びませんか(経過日数の計算)

昔の僕！「年月日や曜日・時刻の取得」では現在時刻について説明しましたが、このページではもう一歩進んで time関数の利用方法について説明します。
例えば、どのようにしたら20日前の日付を得られるか、特定の日付から今日までの経過日数を算出するのはどのようにすればいいのかを考えていきたいと思っています。

現在の日付を求める
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); $yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday); print "$yyyymmddJです";
現在の時刻を日本語で表示させています。詳しくは「年月日や曜日・時刻の取得」を参照してください。
2001年11月13日です
【→Perl Reference: sprintf】
【→Perl Reference: time】
【→Perl Reference: localtime】

それでは20日後の日付を求めるには、どうのようにしたらよいのでしょうか。

Ｘ日前後の日付を求める
time は現在の日時・時刻を1970年1月1日0時0分0からの経過秒で現すのでしたね。

print time, "<br>";
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday);
print "$yyyymmddJです";

先ほどのスクリプトの前にprint timeを入れてみました。

1005634570
2001年11月13日です

上の行が1970年01月01日0時0分0秒からの経過秒です。
下の行は上の経過秒を元にして得られた日付となります。

20日後の日付を求めるなら
60秒×60分×24時間×20日＝1728000秒前を求めることになります。そこで
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time - 1728000); $yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday); print "$yyyymmddJです";
下のように20日前の日付が得られました。20日後ならtimeに1728000秒をプラスすればいいのです。
2001年10月24日です

localteime()

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localteime();
$yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday);
print "$yyyymmddJです";

これではどうなるでしょうか。

2001年11月13日です

上のように現在日付を表示します。localteime()はlocalteime(time)の省略形となっています。

localteime(0)
localteime()をlocalteime(0)にしたらどうなるでしょうか。

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(0);
$yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday);
print "$yyyymmddJです";

1970年01月01日です

1970年01月01日が得られました。time は現在の日時・時刻を1970年1月1日0時0分0からの経過秒ですので、(time)を(0)にすると、1970年1月1日0時0分0から0秒経過したことになります。
このスクリプトでは日付だけの表示なのでよく分かりません。時刻も表示させるようにしました。

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(0);
$yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday);
$hhmmssJ = sprintf("%02d時%02d分%02d秒", $hour, $min, $sec);
print "$yyyymmddJで$hhmmssJです";

1970年01月01日で09時00分00秒です

timeは1970年01月01日で0時0分0秒からの経過秒なのに、何故9時なのでしょうか。

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(0);
$yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday);
$hhmmssJ = sprintf("%02d時%02d分%02d秒", $hour, $min, $sec);
print "$yyyymmddJで$hhmmssJです";

1970年01月01日で00時00分00秒です

gmtimeはグリニッジ標準時を表示します。
timeではグリニッジ標準時での1970年01月01日で0時0分0秒をしっかりと示していたのです。その時間をlocaltimeとしたことで、日本時間の9時に変換されていたのです。
【→Perl Reference: gmtime】

経過日数を求める
特定の日付から現在までの経過日数を求めるにはどうしたらいいでしょうか。経過秒から86,400秒(60秒×60分×24時間)で割れば日数を得られます。しかし今回は日付から経過日数を割り出さなければなりません。そんな時に便利な機能があります。timelocalです。これはperlのモジュールにある特殊な関数です。先ずモジュールの使い方から説明をします。

use モジュール名;
use Time::Local;
use でモジュールを使用することを宣言します。ここではTime::Localがモジュール名です。Time::Localのモジュールを宣言したことによりtimelocal関数を使用することができるようになりました。

use Time::Local; $year=2001; $mon =10; $mday=24; $hours = 0; $min = 0; $sec = 0; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); print $time, "<br>";

1003849200
先ほど秒数を使って20日前の日付(2001年10月24日)を求めましたが、ここでは2001年10月24日を指定して現在までの経過秒を求めました。それがtimelocal(　)、モジュールで使用できる関数です。残念ながら、この値が正しいのか分かりませんので、localtimeを使って検証してみましょう。

use Time::Local; $year=2000; $mon =10; $mday=24; $hours = 0; $min = 0; $sec = 0; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); print $time, "<br>"; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); $yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon + 1, $mday); $hhmmssJ = sprintf("%02d時%02d分%02d秒", $hour, $min, $sec); print "$yyyymmddJで$hhmmssJです";

1003849200 2000年10月24日で00時00分00秒です
正しい経過秒を取得できたようです。経過秒から経過日数を算出できました。

ついでに1970年1月1日0時0分0秒から現在までの経過秒と、2000年10月24日0時0分0秒までの経過秒も表示しておきます。
use Time::Local; $year=2001; $mon =10; $mday=24; $hours = 0; $min = 0; $sec = 0; $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year); $time1 = time; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); $yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon + 1, $mday); $hhmmssJ = sprintf("%02d時%02d分%02d秒", $hour, $min, $sec); print "$yyyymmddJで$hhmmssJです<br>"; $kdays = int(abs(($time1 - $time) / 60 / 60 / 24)); print "$kdays日が経過しています"; print "<br>\$time=$time, \$time1=$time1";

2001年10月24日で00時00分00秒です 20日が経過しています $time=1003849200, $time1=1005644169

$time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year);
$time1 = time;

$kdays = int(abs(($time1 - $time) / 60 / 60 / 24));

【→Perl Reference: int】

l_nisukeisan_8.cgi

これで完成ですが、timelocalは1970年からの経過秒です。それ以前からの答えを求めることはできないようです。そこで別の方法で経過日数を求めることにしましょう。「生まれてから何日？」をご覧になってください。