Casio50 » fx-3x50P » Programs 程式集 » Calendar & Time 日期與時間 »
本式可計算某一年的復活節日期.
| <BASE> |
|---|
| ? → Y : |
| Y – Y ÷ 19 × 19 + 1 → A : |
| Y ÷ 100 : |
| 11 A + Ans ÷ 4 – Ans + ( 8 Ans + 88 ) ÷ 25 : |
| 19 – Ans + Ans ÷ 30 × 30 → D : |
| 4 → M : |
| 0 ≥ D => 1 M– => D + 31 → D : |
| D = 19 or D = 18 and A > 11 => D – 1 → D : |
| Y + 4800 : |
| D + 365 Ans + Ans ÷ 4 – Ans ÷ 100 + Ans ÷ 400 – 5 + ( 153 M – 457 ) ÷ 5 : |
| D + 7 – Ans + Ans ÷ 7 × 7 → D : |
| D > 31 => 1 M+ => D – 31 → 31 : |
| M ◢ D |
| 176 Bytes |
| 一般操作 | 例子 |
|---|---|
| 求 y 年的復活節日期 | 求 2008 年的復活節日期 |
| 啟動程式 | 按 Prog 1 |
| 輸入資料 y EXE |
2008 EXE |
| 顯示復活節 m EXE d |
3 EXE 23 (即該年復活節為 3 月 23 日) |
| A | GoldenCycle |
|---|---|
| B | |
| C | |
| D | d |
| X | |
| Y | y |
| M | m |
復活節必定為星期日.
本式是以格高曆 (Gregorian Calendar) 來計算復活節, 而非希臘東正教所用的懦略曆 (Julian Calendar).