home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / astrmenu.lbr / CALJD.BZS / CALJD.BAS
BASIC Source File  |  1987-04-26  |  896b  |  29 lines
  1. 1 PRINT "From the May 1984 SKY & TELESCOPE, pp. 454-5."
  2. 2 PRINT
  3. 3 PRINT "This program converts a civil date to a Julian date.  It will work"
  4. 4 PRINT "with either the Gregorian or Julian calendar, and with either"
  5. 5 PRINT "positive or negative years."
  6. 6 PRINT
  7. 7 PRINT "INPUT :  Year (Y), month (M), day with fraction (D) (UT), Julian or"
  8. 8 PRINT "         Gregorian calendar."
  9. 9 PRINT
  10. 10 PRINT "OUTPUT:  Julian Day number, Julian Day fractional part."
  11. 11 PRINT
  12. 800 REM   CALENDAR --> JD
  13. 805 REM
  14. 810 INPUT "Y,M,D ";Y,M,D
  15. 815 INPUT "JC (0) OR GC (1) ";G
  16. 820 D1=INT(D): F=D-D1-.5
  17. 825 J=-INT(7*(INT((M+9)/12)+Y)/4)
  18. 830 IF G=0 THEN 850
  19. 835 S=SGN(M-9): A=ABS(M-9)
  20. 840 J1=INT(Y+S*INT(A/7))
  21. 845 J1=-INT((INT(J1/100)+1)*3/4)
  22. 850 J=J+INT(275*M/9)+D1+G*J1
  23. 855 J=J+1721027!+2*G+367*Y
  24. 860 IF F>=0 THEN 870
  25. 865 F=F+1: J=J-1
  26. 870 PRINT "J.D.: ";J;F
  27. 875 RUN"ASTRMENU.BAS"
  28. 9)+D1+G*J1
  29. 85