sub DateTime
{
	($sec, $min, $hour, $mday, $mon, $year, $wday ) = localtime;
	$mon++;
	$year += 1900;

	@week = ("日", "月", "火", "水", "木", "金", "土" );
	$wday = $week[ $wday ];

	$hour = sprintf("%.2d", $hour );
	$min = sprintf("%.2d", $min );
	$sec = sprintf("%.2d", $sec );

	return "$year年$mon月$mday日($wday) $hour:$min:$sec";
}
1;