Module
Contents
Index 🔎︎

# 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