ある日付の曜日を計算する†

＄YY=2004
＄MM=8
＄DD=29

＄YYYY=（if,（MM）<3,（YY）－1,（YY））
＄MMMM=（if,（MM）<3,（MM）＋13,（MM）＋1）
＄WEEK=（calc,（（sprintf,%d,（calc_float,（YYYY）＊365.25））＋（sprintf,%d,（calc_float,（MMMM）＊30.6））＋（YYYY）／400＋（DD）－（YYYY）／100－429）％7）＋1
（nswitch,（WEEK）,月,火,水,木,金,土,日）

別解。

＠dayofweek
（set,__y,（calc,（A0）-(（A1）<3)））（nswitch,（calc,(（__y）＋（__y）/4-（__y）/100＋（__y）/400＋（nswitch,（A1）,0,3,2,5,0,3,5,1,4,6,2,4）＋（A2）)%7＋1）,日,月,火,水,木,金,土）（set,__y,）

＊てすと
：（call,dayofweek,2004,9,2）＃ → 木
トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2022-05-01 (日) 23:26:52