星期天的計算

程式編寫日期: 2007年9月9日 (更新日期: 2008年7月7日)

程式需要在 BASE 模式下執行,因此在選擇新程式位置後,按 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)。

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集