儒略日日期

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

程式編寫日期:2006年7月16日

程式 (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 返回正常計算模式。

 

返回 fx-3650P 程式集

Free Web Hosting