home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 March / 64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64 / kalender prg. 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  361 b   |  19 lines
  1. 10 input "julianisches datum ";jd
  2. 20 gosub 2000
  3. 30 print "kalenderdatum:";t;".";m;".";j
  4. 40 end
  5. 2000 rem julianisch -> kalender
  6. 2005 j=int((4*jd-1)/146097)
  7. 2010 jd=4*jd-1-146097*j
  8. 2020 t=int(jd/4)
  9. 2030 jd=int((4*t+3)/1461)
  10. 2040 t=4*t+3-1461*jd
  11. 2050 t=int((t+4)/4)
  12. 2060 m=int((5*t-3)/153)
  13. 2070 t=5*t-3-153*m
  14. 2080 t=int((t+5)/5)
  15. 2090 j=100*j+jd
  16. 2100 ifm<10thenm=int(m+3):goto2120
  17. 2110 m=int(m-9):j=j+1
  18. 2120 return
  19.