Switch Function

Вычисляет аргументы, состоящие из логических выражений, за которыми следуют значения. Возвращает значение, связанное с выражением, переданным этой функцией.

Синтаксис

Switch (Выражение1, Значение1[, Выражение2, Значение2[..., Выражение_n, Значение_n]])

Параметры:

Функция Switch вычисляет выражения слева направо и возвращает значение, назначенное выражению функции. Если парность выражение/значение нарушена, произойдет ошибка времени выполнения.

Выражение. Выражение, которое необходимо вычислить.

Значение. Значение, возвращаемое, если результат выражения — True.

В следующем примере функция Switch используется для назначения соответствующего рода имени, передаваемому функции.

Пример:

Sub ExampleSwitch

Dim sGender As String

    sGender = GetGenderIndex( "Вася" )

    MsgBox sGender

End Sub

Function GetGenderIndex (sName As String) As String

    GetGenderIndex = Switch(sName = "Маша", "жен.", sName = "Вася", "муж.")

End Function