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).