CBool Function
Преобразует результат сравнения строк или чисел в выражение типа Boolean. Возможно также преобразование числового выражения в выражение типа Boolean.
Синтаксис
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