ＲＺＦの館

■ [Perl] 世界一単純な春分／秋分計算をPerlでやってみる

お仕事で日付関係を扱う関係上、毎度参考にしている“こよみのページ”に、世界一単純かもしれない、春分／秋分計算というのが載っていて、いたく感激したので、Java ScriptでかかれているものをPerlに変換してみようというテスト。要Date::Calc

$X=6829570000; //1970年の春分点通過時刻の年初からのミリ秒

$Y=22935091700; //1970年の秋分点通過時刻の年初からのミリ秒

$Z=31556926000; //地球公転周期のミリ秒

ということなのでで、$a年の春分日は

Add_Delta_DHMS(1970,1,1,0,0,0,0,9,0,(($a-1970)*$Z+$X)/1000);

同じく秋分日は

Add_Delta_DHMS(1970,1,1,0,0,0,0,9,0,(($a-1970)*$Z+$Y)/1000);

ちゅうことですな。エライ単純やなぁ。今までアホみたいに少数演算だのint関数を使うだのしていたのがウソみたい。確かに簡単である。

ただ、Date::CalcもAdd_Delta_DHMSで2038年問題に引っかかってしまうのが残念だ。整数演算は問題なく通るので内部でtime関数を使っているのかもしれない。

じゃぁDate::Calcを使わずに処理すればいいじゃんということになるが、式を書くのが面倒なのでこのへんでやめておく。