儒略日計算
程式編寫日期: 2007年1月4日
程式(65步)
| 1 | ENT 1 | 2. | Kin 1 | 3. | ENT 2 | 4. | Kin 2 | 5. | ENT 3 |
| 6. | Kin 3 | 7. | 1 | 8. | Kin + 2 | 9. | 3 | 10. | . |
| 11. | 5 | 12. | - | 13. | Kout 2 | 14. | = | 15. | ÷ |
| 16. | x2 | 17. | √ | 18. | + | 19. | 1 | 20. | = |
| 21. | ÷ | 22. | 2 | 23. | × | 24. | Kin - 1 | 25. | 1 |
| 26. | 2 | 27. | = | 28. | Kin + 2 | 29. | 3 | 30. | 6 |
| 31. | 5 | 32. | . | 33. | 2 | 34. | 5 | 35. | × |
| 36. | Kout 1 | 37. | - | 38. | . | 39. | 5 | 40. | = |
| 41. | Fix 0 | 42. | RND | 43. | + | 44. | 3 | 45. | 0 |
| 46. | . | 47. | 6 | 48. | × | 49. | Kout 2 | 50. | - |
| 51. | . | 52. | 5 | 53. | + | 54. | Kout 3 | 55. | + |
| 56. | 1 | 57. | 7 | 58. | 2 | 59. | 0 | 60 | 9 |
| 61. | 8 | 62. | 2 | 63. | = | 64. | RND | 65. | Norm |
LRN 模式輸入程式(只供 fx-3800P使用，程式長度: 65步 )
| ENT 1 | Kin 1 | ENT 2 | Kin 2 | ENT 3 |
| Kin 3 | 1 | Kin + 2 | 3 | . |
| 5 | - | Kout 2 | = | ÷ |
| x2 | √ | + | 1 | = |
| ÷ | 2 | × | Kin - 1 | 1 |
| 2 | = | Kin + 2 | 3 | 6 |
| 5 | . | 2 | 5 | × |
| Kout 1 | - | . | 5 | = |
| Fix 0 | RND | + | 3 | 0 |
| . | 6 | × | Kout 2 | - |
| . | 5 | + | Kout 3 | + |
| 1 | 7 | 2 | 0 | 9 |
| 8 | 2 | = | RND | Norm |
| MODE . |
註1:儒略日(Julian Day)系統的流水計日法對天文計算相當便利，所以獲得了天文界一致的採用，成為天文計算中最重要的時間基準。
註2:計算相差日數，只要將兩日期的儒略日相減。
註4:儒略日可以計算到星期天，公式為 W = (JD + 1.5) mod 7。
註5:修正儒略日的定義為MJD= JD - 2400000.5。
例題: 格林威治時間2001年12月15日正午12時零分的儒略日為何？
按 P1 2001 RUN 12 RUN 15 RUN (顯示儒略日為2452259)
註6: 輸入的數值必須為整數。