Съдържание
Индекс 🔎︎

# Функция 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