home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / pbas45.lzh / 100day.bas next >
BASIC Source File  |  1990-11-25  |  1KB  |  47 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 Court Date"
  11.   r=2:c=1
  12.   gosub 1000  ' get the first date
  13.   d1 = d
  14.   d = d1 + 100
  15.   gosub 2000
  16.   box 5,1,7,40,1
  17.   locate 6,8:print "100 Days Later : " month "/" day "/" year
  18.   end
  19.  
  20. 1000 ' read in date, convert to days
  21.      ' in D   
  22.    locate r,c:input "Month";month
  23.    locate r+1,c:input "Day  ";day
  24.    locate r+2,c:input "Year ";year
  25.    if (year%4)=0 then m(2)=29 else m(2)=28
  26.    d = 0
  27.    ' get number of days this year
  28.    for x = 1 to month-1
  29.       d = d + m(x)
  30.    next x
  31.    if month = 1 then d = 0
  32.    d = d + int(year*365.25) + day
  33.    return
  34.  
  35. 2000 ' convert d to date
  36.    year = int(d / 365.25)
  37.    if (year%4)=0 then m(2)=29 else m(2)=28
  38.    d = d - int(year*365.25)
  39.    for x = 1 to 12
  40.      if d < m(x) then month=x-1:goto 2010
  41.      d = d - m(x)
  42.    next x
  43. 2010
  44.    if month < 1 then month = 1
  45.    day = d
  46.    return
  47. ə