Функция CBool

Преобразува низово или числово сравнение или единичен числов израз към стойност от тип Boolean.

Синтаксис:

CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) или CBool (Number)

Връщана стойност:

Bool

Параметри:

Expression1, Expression2: низови или числови, които искате да бъдат сравнени. Ако си съответстват, функцията CBool връща True, в противен случай – False.

Number: числов израз, който да бъде преобразуван. Ако стойността му е 0, се връща False, в противен случай – True.

В следващия пример с функцията CBool се оценява стойността, върната от функцията Instr. Функцията проверява дали е открита думата „пет“ в изречение, въведено от потребителя.

Кодове за грешка:

5 Невалидно извикване на процедура

Пример:

Sub ExampleCBool

Dim sText As String

    sText = InputBox("Моля, въведете кратко изречение:")

    ' Проверяваме дали думата "пет" се съдържа в изречението.

    ' Вместо реда

    ' If Instr(Input, "пет")<>0 Then…

    ' прилагаме функцията CBool както следва:

    If CBool(Instr(sText, "пет")) Then

        MsgBox "Думата „пет“ се среща във въведеното от вас изречение!"

    EndIf

End Sub