日期計算

日期計算

程式可以計算一個日期經過一段日數後(或前)的日期。

程式編寫日期: 2007年9月17日

程式需要在 BASE 模式下執行，因此在選擇新程式位置後，按 3 選用BASE模式。

程式 (191 bytes, 使用記憶為A, B, D, Y及M):

Dec: ?→Y: ?→A: ?→D: ?→M: 14 - A: Ans ÷ 12→B:

4800 + Y - B→Y: 365Y + ( 153(12B + A - 3) + 2 ) ÷ 5

+ D + Y ÷ 4 - Y ÷ 100 + Y ÷ 400 - 1 M+:

146097→D: 4M + 3: Ans ÷ D→Y: DY ÷4 M-: 4M + 3:

Ans ÷ 1461→B: 1461B ÷ 4 M-: 5M + 2: Ans ÷ 153→A:

B + 100Y - 4800 + A ÷ 10◢ 3 + A - A ÷ 10 × 12◢

153A + 2: M + 1 - Ans ÷ 5

例題1: 求2006年7月1日經過300天後的日期。

Prog 1 再按 2006 EXE 7 EXE 1 EXE 300 EXE (顯示2007) EXE (顯示4) EXE (顯示27)

所以日期為2007年4月27日

計算完結後按 MODE 1 返回正常計算模式。

例題2: 求2006年7月1日經過300天前的日期。

Prog 1 再按 2006 EXE 7 EXE 1 EXE - 300 EXE (注意輸入減號代替負號，顯示2005)

EXE (顯示9) EXE (顯示4)

所以日期為2005年9月4日

計算完結後按 MODE 1 返回正常計算模式。