IBM Lotus Symphony


Функция CBool [встроенная]

Преобразует сравнение строк или чисел в булевское выражение, либо числовое выражение в булевское выражение.

Синтаксис:

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

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

Bool

Параметры:

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

Число: произвольное числовое выражение, которое необходимо преобразовать. Если выражение равно 0, то функция возвращает False, иначе - True.

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

Коды ошибок

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


Комментарии по продукту | Дополнительная документация | Товарные знаки