21f
@verb #1000:"date_to_days" this none this rxdo #1177
@program #1000:"date_to_days" this none this
"Inputs a 'ctime()' string, and returns the number of days since the winter Solstice"
month = args[1][5..7] in $time_utils.monthabbrs
day = toint(args[1][9..10])
if (month == 12 && day >= 21)
  days = day - 21
else
  days = 10 + day
  for index in ({31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}[1..month - 1])
    days = days + index
  endfor
endif
return days
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.

0