WeekDay Function
αααα‘ααβαααβαααβααααΌαβααααΆβαα βααΉαβααααβααααΎααΆα αααβααααΆαβαααβαααβαααααΆααβααΆαβααα·α αααα αααβααααΌαβααΆαβαααααΎαβαααβα’αα»αααα DateSerial α¬ DateValueΒ α
ααΆαααβααααααα α
WeekDay (Number)
αααααβαααα‘αα α
α ααα½αβααα
αααΆαααΆαααααα α
α ααα½αβ α ααααααβα ααα½αβαααβαααβααΆαβαααβαααααΆααβααΆαβααα·α αααα αααβααααΌαβααΆαβααααΎβααΎααααΈβααααΆβααααβααβαααααΆα α (1-7)Β α
α§ααΆα αααβααΌα βααΆαβααααα αααααβααααβααβαααααΆα αβαααβααααΎβα’αα»αααα WeekDay αα βαααβα’αααβαααα αΌαβααΆαβααα·α ααααΒ α
α§ααΆα ααα α
Sub ExampleWeekDay
Dim sDay As String
REM Return and display the day of the week
Select Case WeekDay( Now )
Case 1
sDay="Sunday"
Case 2
sDay="Monday"
Case 3
sDay="Tuesday"
Case 4
sDay="Wednesday"
Case 5
sDay="Thursday"
Case 6
sDay="Friday"
Case 7
sDay="Saturday"
End Select
msgbox "" + sDay,64,"Today is"
End Sub