Name Of Day

Get Name of Day Function

How can you find out what the day name is for a given date? This function will return that value in a string if passed a date in the format dd/mm/yyyy.

PRINT dayname$("10/1/1998")
 
FUNCTION dayname$(dt$)
days$ = "Tuesday Wednesday Thursday Friday Satday Sunday Monday"
dayname$ = word$(days$,(DATE$(dt$) MOD 7)+1)
END FUNCTION