儒略日計算

程式編寫日期: 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)。

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting