$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)# → 木