—j“úŒvŽZ—�˜_�i‚y‚…‚Œ‚Œ‚…‚’‚ÌŒöŽ®�j

�¼—ïYY”NMMŒŽDD“ú
C = int(YY / 100)
Y = YY - 100 * C
W = int(C / 4 ) - 2 * C + Y + int ( Y / 4) + int (26*(MM + 1)/10 ) +DD -1
   W �€ 7 = —]‚è
—]‚è�@0�@�¨�@“ú—j“ú
�@�@�@6�@�¨�@“y—j“ú
’A‚µ�A‚PŒŽ‚Æ‚QŒŽ‚Í‘O”N‚Ì‚P‚RŒŽ‚Æ‚P‚SŒŽ‚Æ‚·‚é

—j“úŒvŽZ‚Ì‚a‚`‚r‚h‚b‚̃Tƒ“ƒvƒ‹�i’l=0-6�j
110 YY=1999
120 MM=11
130 DD=3
140 IF MM<3 THEN MM=MM+12:YY=YY-1
150 DC=INT(YY/100)
160 DY=YY-100*DC
170 DW=INT(DC/4)-2*DC+DY+INT(DY/4)+INT(26*(MM+1)/10)+DD-1
180 WEEKDAY=(DW MOD 7)
190 PRINT WEEKDAY