4

ユーザーは開始日と終了日をフォームで選択できます。(金曜日から月曜日までとしましょう。) 現在の平日がこれら 2 つの平日の間にあるかどうかを確認するにはどうすればよいですか?

Dim WEstart As DayOfWeek = 5 'Friday
Dim WEend As DayOfWeek = 1 'Monday

If Date.Now.DayOfWeek >= WEstart And Date.Now.DayOfWeek <= WEend Then
   Return True
Else
   Return False
End If

正しく動作しません。

4

2 に答える 2

2

それを試してください。これは、金曜日から月曜日までの日をチェックします。つまり、金曜、土曜、日曜、月曜の場合は「True」を返します。

曜日が火曜日、水曜日、または木曜日の場合は false を返します。

Dim startday As DayOfWeek = DayOfWeek.Friday
    Dim endday As DayOfWeek = DayOfWeek.Sunday
    Dim today As DayOfWeek = DateTime.Now.DayOfWeek

    If endday >= startday Then
        Return (today >= startday AndAlso today <= endday)
    Else
        Return (today >= startday OrElse today <= endday)
    End If
于 2013-05-27T13:48:42.997 に答える