perlで､1970/1/1に満たないｼﾘｱﾙ値から年月日を求める事は可能でしょうか？可能であればその方法を知りたいのですが｡…

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

上のﾘﾝｸはあまり参考になりません｡

ちょっと書いてみました｡もっとｽﾏｰﾄな方法があると思いますが…｡

1行目の$timeserialに負の数(つまり1970/1/1 0:00:00から引く秒数分のｼﾘｱﾙ値)を入れると､経過日数とその日付が出力されます｡

実行にはDate::Calcﾓｼﾞｭｰﾙが必要です｡

また､あくまでｸﾞﾚｺﾞﾘｵ暦での計算なのでご注意を｡

------------------

$timeserial = -86400;

($sec, $min, $hour, $mday, $mon, $year) = gmtime(0);

$year += 1900;

$mon += 1;

$kdays = int($timeserial / 60 / 60 / 24);

print ”$kdays日が経過しています￥n”;

use Date::Calc qw(Add_Delta_Days);

($y,$m,$d) = Add_Delta_Days($year,$mon,$mday,$kdays);

print ”$y/$m/$d￥n”;

-------------------------