VBScript不会运行 - 错误“预期声明”

Question

我有以下代码：

Dim todaysDate

todaysDate = Day(Now)

Select Case todaysDate

    Case 1 to 5
        Msgbox("1 to 5")

    Case 23 to 31
        Msgbox("23 to 31")
    End Select

当我把它放在一个VBS文件中并运行它时，我得到第9行Char 10的“预期声明”。

如果我将代码复制并粘贴到Excel的VBA编辑器中，它运行正常且没有错误。

为什么它不能在VBS文件中工作？

Answer 1

在VBScript中，Case语句不允许x To y语法。您只能使用单个值或以逗号分隔的值列表。您将不得不使用If / ElseIf语句。

Answer 2

尝试以下方法：

Select Case TRUE 'this is important, HT to Cheran

    Case todaysDate >= 1 And todaysDate <=5
        Msgbox("1 to 5")

    Case todaysDate >=23 And todaysDate <=31
        Msgbox("23 to 31")

    Case else
        'However you want to handle this
End Select