vb.net - select ケース内の比較構造

Question

select case はあまり使いませんが、この機能には適していると思いました。2 番目と 3 番目のケースを比較するにはどうすればよいでしょうか。コンパイラはそのコードを好みません。Select Case 内でこのように比較することはできませんか?

 Private Shared Function TakeValue(ByVal interval As Integer) As Integer
    Select Case interval
        Case Is <= 15
            Return 1440
            ***Case Is > 15 And <=30
            Return 720
            Case is > 30 And <=60
            Return 528***
        Case Else
            Return 400

    End Select
End Function

Answer 1

多分このようなもの：

Select Case interval
  Case 0 To 15
    Return 1440
  Case 16 To 30
    Return 720
  Case 31 To 60
    Return 528
  Case Else
    Return 400
End Select

参考文献:

• ケース ステートメントの選択