儒略日日期

儒略日日期

程式可以計算一個儒略日的日期。

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

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

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

Dec: ?→M: 32044 M+:

146097→D: 4M + 3: Ans ÷ D→C: DC ÷4 M-: 4M + 3:

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

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

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

例題: 若儒略日為2452259，求所代表的格林威治時間。

按 Prog 1 再按 2452259 EXE (顯示2001年) EXE (顯示12月) EXE (顯示15日)

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