get_week.pl

# ツェラーの公式を使って、曜日を求める。
# 0が日曜。

sub getweek{
	local($day, $year, $month) = @_;
	# $year  = 年; # もちろん4桁で。
	# $month = 月; # 1-12で。1月は1。

	if ($month == 1 || $month == 2) {
		$year--;
		$month += 12;
	}

	int(
		  $year
		+ int($year/4)
		- int($year/100)
		+ int($year/400)
		+ int((13*$month+8)/5)
		+ $day
	) % 7;
}