日付から曜日を求める
用途）曜日別に処理を変更する場合に重宝します。
yo = Weekday(date)
Select Case yo
Case 1 '日曜日
Msgbox "日曜日の処理"
Case 2 '月曜日
Msgbox "月曜日の処理"
Case 3 '火曜日
Msgbox "火曜日の処理"
Case 4 '水曜日
Msgbox "水曜日の処理"
Case 5 '木曜日
Msgbox "木曜日の処理"
Case 6 '金曜日
Msgbox "金曜日の処理"
Case 7 '土曜日
Msgbox "土曜日の処理"
Case Else
Msgbox "曜日エラー"
End Select