IBM Lotus Symphony
|
Преобразует сравнение строк или чисел в булевское выражение, либо числовое выражение в булевское выражение.
CBool (Выражение1 {= | <> | < | > | <= | >=} Выражение2) или CBool (Число)
Bool
Выражение1, Выражение2: произвольные строковые или числовые выражения, которые необходимо сравнить. Если выражения совпадают, функция CBool возвращает True, иначе возвращается False.
Число: произвольное числовое выражение, которое необходимо преобразовать. Если выражение равно 0, то функция возвращает False, иначе - True.
В следующем примере функция CBool обрабатывает значение, возвращенное функцией Instr. Функция проверяет, есть ли слово "и" в предложении, введенном пользователем.
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