home *** CD-ROM | disk | FTP | other *** search
/ RISCWORLD 5 / RISCWORLD_VOL5.iso / SOFTWARE / Issue3 / FAMILY / Calendar / Demo / BASIC / Test5 (.txt) < prev   
Encoding:
RISC OS BBC BASIC V Source  |  2003-09-20  |  1012 b   |  41 lines
  1.  test calendar
  2. $ " at line " 
  3.  JulMon$(12)
  4.  Jan, Feb, Mar, Apr
  5.  May, Jun, Jul, Aug
  6.  Sep, Oct, Nov, Dec
  7.  I%=1 
  8.  JulMon$(I%):
  9.  "Test3: Calculate the difference between two dates"
  10. )atod% = 
  11. ident("Calendar_JDayToDate")
  12. )dtoa% = 
  13. ident("Calendar_DateToJDay")
  14.  "FROM:"
  15.  "Calendar (0=stop, 1=julian, 2=gregorian, 3=hebrew, 4=islamic): "c%
  16.  c%=0 
  17.  "Year   : "y%
  18.  "Month  : "m%
  19.  "Day    : "d%
  20.  dtoa%, c%,, y%,m%,d% 
  21.  ,from%
  22.  "(JDay="from%")"
  23.  "TO:"
  24.  "Calendar (0=stop, 1=julian, 2=gregorian, 3=hebrew, 4=islamic): "c%
  25.  c%=0 
  26.  "Year   : "y%
  27.  "Month  : "m%
  28.  "Day    : "d%
  29.  dtoa%, c%,, y%,m%,d% 
  30.  ,to%
  31.  "(JDay="to%")"
  32.  "Difference: "to%-from%" days"
  33.  c%=0
  34. ident(swiname$)
  35.  convert the given swi name to a swi number
  36.  and print the result
  37.  swinr%
  38.  "OS_SWINumberFromString",, swiname$ 
  39.  swinr%
  40. =swinr%
  41.