IBM Lotus Symphony


Funktionen CBool [Runtime]

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

Syntaks:

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

Returværdi:

Boolean

Parametre:

Udtryk1, Udtryk2: De strengudtryk eller numeriske udtryk, du vil sammenligne. Hvis udtrykkene svarer til hinanden, returnerer funktionen CBool True, ellers returneres False.

Tal: Et numerisk udtryk, der skal konverteres. Hvis udtrykket er lig med 0, returneres False, ellers returneres True.

I eksemplet nedenfor bruges funktionen CBool til at evaluere den værdi, der returneres af funktionen Instr. Funktionen undersøger, om ordet "og" findes i den sætning, der angives af brugeren.

Fejlkoder

5 Ugyldigt procedurekald

Eksempel:

Sub EksempelCBool

Dim sTekst As String

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

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

REM I stedet for kommandolinjen

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

REM bruges funktionen CBool som følger:

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

MsgBox "Ordet »og« findes i den sætning, du har skrevet!"

EndIf

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker