CBool Function

Konvertuje poredjenje znaka ili brojnog izraza u Boolean izraz, ili konvertuje jedan brojni izraz u Boolean izraz.

Sintaksa:

CBool (Izraz_1 {= | <> | < | > | <= | >=} Izraz_2) or CBool (Number)

Vrati vrijednost:

Bool

Parametri:

izraz_1, izraz_2: Bilo koji znak ili numericki izraz koji zelis konvertovati.ako se izrazi poklapaju, CBool funkcija vraca True, u drugom slucaju Netačno je vracena.

Number: Brojni izraz koji zelis konvertovati. Ako je izraz jedank 0, Netačno je vracena, u drugom slucaju True je vracena.

Slijedeci primjerkoristi CBool funkciju da procijeni vrijednost koja je vracena Instr funkcijom. Funkcija provjerava ako je rijec "i"nadjena u recenici koja je unesena od korisnika.

Error codes:

5 Invalid procedure call

Primjer:

Sub ExampleCBool

Dim sText As String

    sTektst = PoljeUnosa("Molimo unesite kratku recenicu:")

    REM Dokazi ukoliko je rijec »i« pojavljivana u recenici.

    REM Umjesto komandne linije

    REM ako Instr(Unos, "i")<>0 onda...

    REM the CBool je primjenjena kao sto slijedi:

    If CBool(Instr(sTekst, "i")) onda

        poruka_polje "Rijec »i« se pojavljuje u recenici koju ste unijeli!"

    EndIf

End Sub