IBM Lotus Symphony
|
Konverterer en strengsammenligning eller numerisk sammenligning til et boolesk udtryk eller konverterer et enkelt numerisk udtryk til et boolesk udtryk.
CBool (Udtryk1 {= | <> | < | > | <= | >=} Udtryk2) eller CBool (Tal)
Boolean
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.
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