home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / pbas45.lzh / days.bas < prev    next >
BASIC Source File  |  1991-08-21  |  928b  |  37 lines
  1.   rem bj gleason
  2.   rem fixed date calculations for january
  3.   rem changed x,y corrdinates for 2.1
  4.   cls
  5.   dim m(12)
  6.   ' days in each month
  7.   m(1)=31:m(2)=28:m(3)=31:m(4)=30
  8.   m(5)=31:m(6)=30:m(7)=31:m(8)=31
  9.   m(9)=30:m(10)=31:m(11)=30:m(12)=31
  10.   print "Enter First Date"
  11.   r=2:c=1
  12.   gosub 1000  ' get the first date
  13.   d1 = d
  14.   locate 1,21:print "Enter Second Date"
  15.   r=2:c=21
  16.   gosub 1000  ' get the second date
  17.   d2 = d
  18.   diff = abs(d2-d1) ' number of days
  19.   box 5,1,7,40,1
  20.   locate 6,10:print "Number of days : " diff
  21.   end
  22.  
  23. 1000 ' read in date, convert to days
  24.      ' in D   
  25.    locate r,c:input "Month";month
  26.    locate r+1,c:input "Day  ";day
  27.    locate r+2,c:input "Year ";year
  28.    if (year%4)=0 then m(2)=29 else m(2)=28
  29.    d = 0
  30.    ' get number of days this year
  31.    for x = 1 to month-1
  32.       d = d + m(x)
  33.    next x
  34.    if month = 1 then d = 0
  35.    d = d + int(year*365.25) + day
  36.    return
  37. ə