Функція CBool

Перетворює результат порівняння рядків або чисел у вираз типу Boolean, або можливе також перетворення числового виразу у вираз типу Boolean.

Синтаксис:

CBool (Вираз1 {= | <> | < | > | <= | >=} Вираз2) або CBool (Число)

Значення, що повертається:

Бульове

Параметри:

Вираз1, Вираз2: рядки або числа, що підлягають порівнянню. Якщо ці вирази збігаються, функція CBool повертає значення True, інакше повертається False.

Число: будь-який числовий вираз для перетворення. Якщо цей вираз дорівнює 0, повертається False, в іншому випадку повертається True.

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

Приклад:

Sub ExampleCBool

Dim sText As String

    sText = InputBox("Будь ласка, введіть коротке речення:")

    ' Істинне, якщо сполучник "і" є в цьому реченні.

    ' Замість командного рядка

    ' If Instr(Input, "і")<>0 Then...

    ' функція CBool використовується наступним чином:

    If CBool(Instr(sText, "і")) Then

        MsgBox "Сполучник "і" є в реченні, яке ви ввели!"

    EndIf

End Sub