トップページ >Perlについて
ブログ
日 | 月 | 火 | 水 | 木 | 金 | 土 |
1 | ||||||
2 | 3 | 4 | 5 | 6 | 7 | 8 |
9 | 10 | 11 | 12 | 13 | 14 | 15 |
16 | 17 | 18 | 19 | 20 | 21 | 22 |
23 | 24 | 25 | 26 | 27 | 28 | 29 |
30 | 31 |
Perlについて
2021-05-18 11:44:00 *ツェラーの公式*
ツェラーの公式とは、ある日付から、曜日を算出する公式です。
wdayが0 なら日曜日、6 なら土曜日になります。但し、 month は1月、2月を 13、14 としておきます。
グレゴリオ暦の日付に対して有効です。
出典「suikawiki」より
※追記(2023/01/03)
ツェラーの公式のコードを記述します。
wdayが0 なら日曜日、6 なら土曜日になります。但し、 month は1月、2月を 13、14 としておきます。
グレゴリオ暦の日付に対して有効です。
出典「suikawiki」より
※追記(2023/01/03)
ツェラーの公式のコードを記述します。
sub wday {
my ($year, $month, $day) = @_;
if($month < 3){
$month += 12;
$year--;
}
return ($year+int($year/4)-int($year/100)+int($year/400)+int((13*$month+8)/5)+$day)% 7;
Twitter
copyURL
いいね:105 back to the TOP |