[過去ログ] プログラミングのお題スレ Part17 (1002レス)
前次1-
抽出解除 レス栞

このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
875
(1): 540 2020/06/13(土)11:52 ID:P7Ehsk1I(1) AAS
>>834 Perl5、こういうプログラムでは日にち曜日計算を自分で考える前に、いつも使っているモジュールの利用をすぐ思い浮かんでしまう

for (qw{02 03 07 10 14 17 21 24 28 30 31}) {
 $date = "2020-05-$_";
 $t = Time::Piece->strptime($date, '%Y-%m-%d');
 $n = 1 + int($t->mday / 7);
 $dw = $n . $t->day(qw{日 月 火 水 木 金 土});
 $t1 = $t - ONE_DAY * ($t->mday - 1);
 $wk = 1 + int(($t->mday + $t1->_wday - 1) / 7);
 print "$date: 第$wk週目の第$dw曜日です。\n";
}
省13
876: 540 2020/06/13(土)14:11 ID:+1OrBM6u(1) AAS
>>875
先頭に
use Time::Piece;
use Time::Seconds;
が抜けてたてorz
前次1-
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.203s*