Sub ExampleWeekDay
Dim sDay As String
REM 傳回並顯示輸入的日期是星期幾
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