したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プログラムスレッド

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;
}


新着レスの表示


名前: E-mail(省略可)

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

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

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

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