日期計算
程式可以計算一個日期經過一段日數後(或前)的日期。
程式編寫日期: 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 返回正常計算模式。