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