儒略日計算

儒略日計算

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

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

程式 (81 bytes)

ClrMemory: Dec: ?→Y: ?→M: ?→D: Y + 4800→Y:

3M-: 0>M => 12M+ => Y - 1→Y: 365Y + D +

(153M + 2) ÷ 5 + Y ÷ 4 - Y ÷ 100 + Y ÷ 400 - 32045

註1:儒略日(Julian Day)系統的流水計日法對天文計算相當便利，所以獲得了天文界一致的採用，成為天文計算中最重要的時間基準。

註2:計算相差日數，只要將兩日期的儒略日相減。

註4:儒略日可以計算到星期天，公式為 W = (JD + 1.5) mod 7。

註5:修正儒略日的定義為MJD= JD - 2400000.5。

例題: 格林威治時間2001年12月15日正午12時零分的儒略日為何？

按 Prog 1 再按 2001 EXE 12 EXE 15 EXE (顯示儒略日為2452259)

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

註: 輸入數值時 Y? 代表年(Year)，M? 代表月(Month)，D? 代表日(Day)。