CBool Function

Преобразует результат сравнения строк или чисел в выражение типа Boolean. Возможно также преобразование числового выражения в выражение типа Boolean.

Синтаксис

CBool (Выражение1 {= | <> | < | > | <= | >=} Выражение2) или CBool (Число)

Возвращаемое значение:

Bool

Параметры:

Выражение1, Выражение2. Строки или числа, подлежащие сравнению. Если эти выражения совпадают, функция CBool возвращает значение True, иначе возвращается False.

Число. Любое числовое выражение для преобразования. Если это выражение равно 0, возвращается False, в противном случае возвращается True.

В следующем примере используется функция CBool для оценки значения, возвращаемого функцией Instr. Эта функция проверяет, имеется ли союз "и" в предложении, введенном пользователем.

Error codes:

5 Неправильный вызов процедуры

Пример:

Sub ExampleCBool

Dim sText As String

    sText = InputBox("Пожалуйста, введите короткое предложение:")

    REM Истинно, если союз "и" есть в этом предложении.

    REM Вместо командной строки

    REM If Instr(Input, "и")<>0 Then...

    REM функция CBool используется следующим образом:

    If CBool(Instr(sText, "и")) Then

        MsgBox "Союз »и« есть в предложении, которое вы ввели!"

    EndIf

End Sub