Casio50 » fx-3x50P » Programs 程式集 » Calendar & Time 日期與時間 »
本式可計算一日期以格高曆 (Gregorian Calendar) 計算時與公元前 1 年 12 月 31 日相差之日數, 即「日期數」.
| <BASE> |
|---|
| ? → Y : ? → M : ? → D : |
| 2 ≥ M → A : |
| Y + 4800 – A : |
| D + 365 Ans + Ans ÷ 4 – Ans ÷ 100 + Ans ÷ 400 – 1753470 + ( 153 M + 1836 A – 457 ) ÷ 5 → A |
| 78 Bytes |
| 一般操作 | 例子 |
|---|---|
| 求 y 年 m 月 d 日的「日期數」. | 求 2003 年 7 月 1 日和 2004 年 6 月 2 日相差之日數. (可用兩個日子的「日期數」差得之. 在此例會先求 6 月 2 日的「日期數」) |
| 啟動程式 | 按 Prog 1 |
| 輸入資料 y EXE m EXE d EXE |
2004 EXE 6 EXE 2 EXE |
| 顯示「日期數」 n |
731734 (重覆求得 7 月 1 日之「日期數」為 731397. 其差為 337, 故兩個日期相差 337 天.) |
| A | n |
|---|---|
| B | |
| C | |
| D | d |
| X | |
| Y | y |
| M | m |
公元 1 年 1 月 1 日的「日期數」為 1.
在啟動程式時請確定已在十進制模式 (<BASE-Dec>) 下.
如你不能肯定就請在執行程式後按 x².
如要使用公元前的年份, 請在 y 輸入 -(年份 – 1), 如公元前 30 請輸入 -29.
兩個日期之「日期數」差實為它們相差的日數 (見例)
一個日期之「日期數」除以 7 的餘數為星期數, 其中 0 為星期天、1 至 6 為星期一至六.
把一個日期之「日期數」加上 1753469 即得其 Julian Day Number (JD).
此式亦可求某一月的第幾個星期天等等, 用途甚廣, 未能盡錄.