ある日付の曜日を計算する の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• ある日付の曜日を計算する へ行く。

*ある日付の曜日を計算する [#y7f61dc3]

 ＄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）,月,火,水,木,金,土,日）

//　出典：http://www.platz.or.jp/~rice/unyu/20040829.html 
//デッドリンク。

別解。 

 ＠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）＃ → 木