'
' WeekDayAbbr - 3-character abbreviation of the weekday
'
'
' Author: Joe Strazzere
'
Function WeekDayAbbr$()
Local wdnint
wdnint = WeekDay()
Select Case wdnint
Case 1
WeekDayAbbr$ = "Sun"
Case 2
WeekDayAbbr$ = "Mon"
Case 3
WeekDayAbbr$ = "Tue"
Case 4
WeekDayAbbr$ = "Wed"
Case 5
WeekDayAbbr$ = "Thu"
Case 6
WeekDayAbbr$ = "Fri"
Case 7
WeekDayAbbr$ = "Sat"
Case Else
WeekDayAbbr$ = "???"
EndSelect
EndFunction
msgbox("Today is "+WeekDayAbbr$(),,"WeekDayAbbr")
