星期天的計算
程式會計算一個日期是屬於那個星期天。
程式編寫日期: 2006年5月19日 (更新日期: 2008年7月3日)
程式需要在 BASE 模式下執行，因此在輸入程式前請先按 Mode Mode 3 進入BASE模式。
程式 (65 bytes，使用記憶為Y、M及D)
Dec: ?→Y: ?→M: ?→D: 2M-:
0≧M => 12M+ => Y - 1→Y:
D + Y + Y ÷ 4 - Y ÷ 100 + Y ÷ 400 + 31M ÷ 12:
Ans - Ans ÷ 7 × 7
註: 答案的數值1至6分別代表星期一至六，數值0則代表星期日。
例題1: 計算2004年12月31日是那個星期天。
按 Prog 1 再按 2004 EXE 12 EXE 31 EXE (顯示數值為5，即星期五)
計算完結後按 MODE 1 返回正常計算模式。
例題2: 計算2005年1月16日是那個星期天。
按 Prog 1 2005 EXE 1 EXE 16 EXE (顯示數值為0，即星期日)
計算完結後按 MODE 1 返回正常計算模式。
註: 輸入數值時 Y? 代表年(Year)，M? 代表月(Month)，D? 代表日(Day)。
程式舊版
程式編寫日期: 2006年5月19日
程式需要在 BASE 模式下執行，因此在輸入程式前請先按 Mode Mode 3 進入BASE模式。
程式 (71 bytes，使用記憶為Y、M及D)
Dec: ?→Y: ?→M: ?→D: 2M-:
M>0 => Goto 0: Y - 1→Y: 12M+: Lbl 0:
D + Y + Y ÷ 4 - Y ÷ 100 + Y ÷ 400 + 31M ÷ 12:
Ans - Ans ÷ 7 × 7
