T'sWare スケジュール管理 フォームソースリスト [スケジュールの作成]フォーム
Function SkipThisDay(intDow As Integer) As Boolean
SkipThisDay = False
Select Case intDow
Case 1 'Sunday
If Me![日曜日] <> True Then SkipThisDay = True
Case 2 'Monday
If Me![月曜日] <> True Then SkipThisDay = True
Case 3 'Tuesday
If Me![火曜日] <> True Then SkipThisDay = True
Case 4 'Wednesday
If Me![水曜日] <> True Then SkipThisDay = True
Case 5 'Thursday
If Me![木曜日] <> True Then SkipThisDay = True
Case 6 'Friday
If Me![金曜日] <> True Then SkipThisDay = True
Case 7 'Saturday
If Me![土曜日] <> True Then SkipThisDay = True
End Select
End Function