有人可以帮助调试此Select Case

Question

我已经来了一段时间，没有成功。

除了前两种情况和最后一种情况之外，它不会显示任何其他结果。

我尝试了小于或等于情况。

        Dim DayLeft As Long
        DaysLeft = Me.Days.Value

        Select Case DaysLeft
            Case Is = 0
                MsgBox "Deadline due today!"
            Case Is < 0
                MsgBox "Deadline expired!"
            Case 90 To 31
                MsgBox "First notice " & Me.Days& " days until deadline!"
            Case 30 To 11
                MsgBox "Deadline due soon! " & Me.Days & " days until deadline!"
            Case Is <= 10
                MsgBox "Warning! " & Me.Days& " days until deadline!"
        End Select

Answer 1

从Select Case文档中：

所述To关键字指定的范围内的值。如果使用To关键字，则较小的值必须出现在之前To。

所以你需要

Case 31 to 90
...
Case 11 to 30