YEAR_wareki() 関数 西暦年を指定すると和暦年が返ってきます。
昭和と平成のみです。 昭和は「S.nn」、平成は「H.nn」に変換します。
1925以前は対応していません。
PullDown_YEAR() 関数 和暦のプルダウンタグを作成します。
引数として以下のものを指定できます。
(1)タグのname値
(2)selectedする値(西暦) (空値可)
(3)作成するプルダウンの個数
(4)増加(1)させるか、減少(0)させるか
(5)開始年を現在の年よりもどれだけずらすか

●Sample

require "sub_date.pl";

$year = 2002; #西暦(4桁)
$wareki = &YEAR_wareki($year); #和暦

#結果
# $wareki == "H.14"
---------------------------------------------------
●例：PullDown_YEAR() 関数
現在の西暦年を2005年として
2003から15年分過去のプルダウン用タグを作成する。
また、その際に1995年を選択状態にする
---------------------------------------------------
●Sample
require "sub_date.pl";

$wareki_pulldown_tag = &PullDown_YEAR( "tagname", 1995, 15, 0, 2 );

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