プログラムスレッド

83：マナウス ◆nDpXSJz8i.：2012/05/25(金) 21:50:01: ツェラーの公式・某所より転載
$wday = getwday($year, $mon, $mday);
$wday_string = (qw(日月火水木金土))[$wday];

sub getwday {
my($year, $mon, $mday) = @_;

if ($mon == 1 or $mon == 2) {
$year--;
$mon += 12;
}
int($year + int($year / 4) - int($year / 100) + int($year / 400)
+ int((13 * $mon + 8) / 5) + $mday) % 7;
}

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板