Модул
Съдържание
Индекс 🔎︎

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