Modul
Vsebina
Kazalo 🔎︎

# Funkcija Cbool

Spremeni primerjavo med nizi ali števili v Boolov izraz, ali pa spremeni en sam numerični izraz v Boolov izraz.

## Skladnja:

    CBool (Izraz1 {= | <> | < | > | <= | >=} Izraz2) ali CBool (Število)

## Vrnjena vrednost:

Bool

## Parametri:

Izraz1, Izraz2: poljubna niza ali numerična izraza, ki ju želite primerjati. Če se izraza skladata, bo funkcija CBool vrnila True, v nasprotnem primeru pa False.

Število: poljuben numerični izraz, ki ga želite pretvoriti. Če ima izraz vrednost 0, funkcija vrne False, drugače pa True.

Naslednji primer uporabi funkcijo CBool, da izračuna vrednost, ki jo vrača funkcija Instr. Funkcija preverja, če se v stavku, ki ga je vnesel uporabnik, nahaja beseda »in«.

## Kode napak:

5 Neveljaven klic procedure

## Primer:

    Sub ExampleCBool

    Dim sText As String

        sBesedilo = InputBox("Prosimo, vtipkajte stavek:")

        ' Preverjamo, če se v stavku nahaja beseda »in«.

        ' namesto ukazne vrstice

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

        ' uporabimo funkcijo CBool takole:

        If CBool(Instr(sBesedilo, "in")) Then

            MsgBox "V stavku, ki ste ga vtipkali, se nahaja beseda »in«!"

        EndIf

    End Sub