home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / arug23.dms / arug23.adf / Calculations / daydate (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-12-02  |  1KB  |  42 lines
  1. ' DayDate
  2. ' Program to produce Day Number from the Date.
  3. ' From J Miller  Oscar 56
  4. ' Converted for the Amiga by A C Hewat, 17th March 1989
  5. ' Version  1.00   17/03/89
  6.  
  7.  
  8. ' Takes the date in the form of year, month and day of month and calculates
  9. ' its day number.
  10.  
  11. COMMON DayNumber
  12.  
  13. ' do = -722528      ' For AMSAT day number     )
  14.   do = -428         ' For GENERAL day number   ))  Choose one only
  15. ' do = 1720982      ' For JULIAN day at noon   )
  16.  
  17. ' Calculates the day number from the system date, or change and
  18. ' INPUT " Input the Day, Month, and Year ";day,month,year
  19. ' GOTO Jump
  20.  
  21. year = VAL(RIGHT$(DATE$,4))
  22. month = VAL(MID$(DATE$,4,2))
  23. day = VAL(LEFT$(DATE$,2))
  24. PRINT DATE$;
  25.  
  26. Jump:
  27.  
  28. PRINT day,month,year
  29.  
  30. y = year
  31. m = month
  32. d = day
  33. IF m <= 2 THEN m = m+12 : y = y-1
  34. DayNumber = -INT(y/100)+INT(y/400)+15 + INT(y*365.25) + INT((m+1)*30.6) + d + do
  35. PRINT DayNumber
  36.  
  37. ' The century calculation may be omitted so that:
  38. '   DayNumber = INT(y*365.25) + INT((m+1)*30.6) + d + do
  39. ' This is only usable from 1900 Mar 01 to 2100 Feb 28 !!
  40.  
  41. 'CHAIN "DateDay"
  42.