儒略日計算
程式編寫日期: 2006年5月20日 (更新日期: 2008年7月4日)
程式需要在 BASE 模式下執行，因此在輸入程式前請先按 Mode Mode 3 進入BASE模式。
程式 (81 bytes)
Mem clear: 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)。