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.

Если яскопируйте и вставьте код в VBA-редактор Excel, он работает без ошибок.

Есть идеи, почему он не работает в 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