'
' WeekDayName - Return the name of the day
'
' Author: Joe Strazzere
'
'
Function WeekDayName$()
Select Case WeekDay()
Case 1
WeekDayName$ = "Sunday"
Case 2
WeekDayName$ = "Monday"
Case 3
WeekDayName$ = "Tuesday"
Case 4
WeekDayName$ = "Wednesday"
Case 5
WeekDayName$ = "Thursday"
Case 6
WeekDayName$ = "Friday"
Case 7
WeekDayName$ = "Saturday"
Case Else
WeekDayName$ = "I'm lost. I don't know what day it is."
EndSelect
EndFunction
msgbox("Today is "+WeekDayName$(),,"WeekDayName")
