NAME=DayOfWeek
AUTHOR=
ITEM=function DayOfWeek$(mmddyyyy$)
DESCRIPTION=Function takes a date string in "mm/dd/yyyy" format and returns the day of week. If input is faulty, so will be output.
OUTSIDE CODE=

function DayOfWeek$(mmddyyyy$)
    days$ = "Tuesday Wednesday Thursday Friday Saturday Sunday Monday"
    julian = date$(mmddyyyy$)
    i = julian mod 7
    if i < 0 then i = i+7
    i = i+1
    DayOfWeek$ = word$(days$, i)
end function