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. mm/dd/yyyy.

 print dayname$("10/1/1998") 
 
 function dayname$(dt$) 
 days$ = "Tuesday Wednesday Thursday Friday Saturday Sunday Monday" 
 dayname$ = word$(days$,(date$(dt$) mod 7)+1) 
 end function