宮川様お教え頂き有難うございます。

「Date::Calc」はたしかＣ言語環境が導入されてないと実行できないですよね。
私としましては「localtime」を使用してデータベースに入力させたいと思っている
のですが「localtime」ではどうすればよいのでしょうか？

Ｐｅｒｌのプログラム的には下記のような形で日付の取得をしているのですが下記の
ようなプログラムの場合ではどのようにすればデータベースに入力できるのでしょ
うか？

# 日時の取得
	$ENV{'TZ'} = "JST-9";
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$year += 1900;
	$mon++;
	if ($mon  < 10) { $mon  = "0$mon";  }
	if ($mday < 10) { $mday = "0$mday"; }
	if ($hour < 10) { $hour = "0$hour"; }
	if ($min  < 10) { $min  = "0$min";  }

	# 日時のフォーマット
	if ($date_type) {
		$youbi = ('日','月','火','水','木','金','土') [$wday];
		if ($whatsnew) {
			$date = "$year年$mon月$mday日 ($youbi)";
		} else {
			$date = "$year年$mon月$mday日 ($youbi) $hour時$min分";
		}
	}
	else {
		$youbi = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
		if ($whatsnew) {
			$date = "$year-$mon-$mday ($youbi)";
		} else {
			$date = "$year/$mon/$mday($youbi) $hour\:$min";
		}
	}
}

}