曜日の求め方
年月日を指定して曜日を求めるプログラムです。
ツェラーの公式を使って西暦年月日から曜日を算出します。
この公式は、1月と2月を前年の13月、14月として計算します。算出結果は 0〜6で、日〜土を表します。
■プログラム (sample7.cgi)
@week = ('日','月','火','水','木','金','土');
$wday = &date(2003,3,22);
print "2003年3月22日は$week[$wday]曜日です。";

###
sub date {
my($y,$m,$d,$w);
($y,$m,$d) = @_;
if ($m < 3) {$y--; $m += 12;}
$w = ($y+int($y/4)-int($y/100)+int($y/400)+int((13*$m+8)/5)+$d)%7;
}
■実行結果
2003年3月22日は土曜日です。


HOME Copyright (C) CGI-design All Rights Reserved.