Modul
Indhold
Indholdsfortegnelse 🔎︎

# CBool-funktion

Konverterer en strengsammenligning eller numerisk sammenligning til et logisk udtryk, eller konverterer et enkelt numerisk udtryk til et logisk udtryk.

## Syntaks:

    CBool (Udtryk1 {= | <> | < | > | <= | >=} Udtryk2) eller CBool (Tal)

## Returværdi:

Bool

## Parametre:

Udtryk1, Udtryk2: Vilkårlige streng- eller numeriske udtryk, som du vil sammenligne. Hvis udtrykkene er ens, returnerer funktionen CBool True, ellers False.

Tal: Ethvert numerisk udtryk, som du vil konvertere. Hvis udtrykket er lig med 0, returneres False, ellers Sand.

Det følgende eksempel bruger funktionen CBool til at vurdere den værdi, der bliver returneret af funktionen Instr. Funktionen kontrollerer om ordet "og" findes i sætningen som blev indtastet af brugeren.

## Fejlkoder:

5 Ugyldigt Procedurekald

## Eksempel:

    Sub ExampleCBool

    Dim sText As String

        sTekst = InputBox("Indtast en kort sætning:")

        REM Undersøg om ordet »og« findes i sætningen.

        REM I stedet for kommandolinjen

        REM If Instr(Input "og")<>0 Then...

        REM CBool funktionen bliver anvendt som følger:

        If CBool(Instr(sTekst, "og")) Then

            MsgBox "ordet »og« findes i sætningen du indtastede!"

        EndIf

    End Sub