Пример использования случая для месяцев года

Question

Я пытаюсь запустить какой-то код для месяца, в котором мы находимся, мне было интересно, нахожусь ли я на правильном пути с кодом ниже:

Sub test6()

Select Case DatePart("m", Date).Value

Case 1
     ' ... Do something
Case 2
     ' ... Do something
Case 3
     ' ... Do something
Case 4
     ' ... Do something
Case 5
     ' ... Do something
Case 6
     ' ... Do something
Case 7
     ' ... Do something
Case 8
     ' ... Do something
Case 9
     ' ... Do something
Case 10
     ' ... Do something
Case 11
     ' ... Do something
Case 12
     ' ... Do something

End Select

End Sub

Так, например,если Datepart возвращает 9 (сентябрь), то должна выполняться строка Case 9.

Answer 1

Если вы хотите применять совершенно разные логивы для каждого месяца, это правильный путь.

Если есть некоторый код, который будет продублирован, вы можете использовать If...Then:

If month = 1 Or month = 9 Then
  ' apply logic for january and september
ElseIf ...
  ...
End If

Использование Else If может также использоваться для применения различной логики к каждому месяцу вместо Select Case.

EDIT : Вы также можете использовать Case 1, 9 для группировки.