Innehåll
Index 🔎︎

# CBool Function

Konverterar en strängjämförelse eller en numerisk jämförelse till ett logiskt värde, eller konverterar ett numeriskt uttryck till ett logiskt värde.

## Syntax:

    CBool (Uttryck1 {= | <> | < | > | <= | >=} Uttryck2) eller CBool (Tal)

## Returvärde:

Bool

## Parametrar:

Uttryck1, Uttryck2: En sträng eller ett numeriskt uttryck som du vill jämföra. Om de två uttrycken är lika returnerar CBool True. Annars returneras False.

Tal: Ett numeriskt uttryck som du vill konvertera. Om uttrycket evalueras till 0 returneras False, annars returneras True.

I följande exempel används funktionen CBool för att evaluera det värde som returneras av funktionen Instr. Funktionen undersöker om ordet "och" finns i den mening som användaren matar in.

### Felkoder:

5 Felaktigt proceduranrop

## Exempel:

    Sub ExampleCBool
    Dim sText As String
        sText = InputBox("Skriv in en kort mening:")
        ' Kontrollera om ordet "och" finns i meningen.
        ' I stället för uttrycket
        ' If Instr(Input, "och")<>0 Then...
        ' används funktionen CBool på följande sätt:
        If CBool(Instr(sText, "och")) Then
            MsgBox "Ordet "och" finns med i meningen!"
        EndIf
    End Sub