vb.net - 各月の日数が正しいことを確認する

Question

こんにちは、私は現在、日付の日と月を取ることを望んでいたサブルーチンを持っています。次に、今が何月で、その月の日数が正しいかどうかを確認します。

ここに私が現在持っているものがあります：月と日はそれぞれ入力月と日です

        If Month = 4 Or 6 Or 9 Or 11 Then
            If (1 <= Day) AndAlso (Day <= 30) Then
                DateOkay= True
            End If
        End If


        If Month = 2 Then
            If (1 <= Day) AndAlso (Day <= 28) Then
                DateOkay = True
            End If
        End If


        If Month = 1 Or 3 Or 5 Or 7 Or 8 Or 10 Or 12 Then
            If (1 <= Day) AndAlso (Day <= 31) Then
                DateOkay = True
            End If
        End If

現時点では、dateOkay は、日の入力が 31 以下である限り、どの月でも OK を返します。これを行う簡単な方法はありますか？

前もって感謝します