IBM Lotus Symphony
|
Konverterer en strengsammenligning eller numerisk sammenligning til et boolsk uttrykk, eller konverterer et enkelt numerisk uttrykk til et boolsk uttrykk.
CBool (Uttrykk1 {= | <> | < | > | <= | >=} Uttrykk2) or CBool (Tall)
Bool
Uttrykk1, Uttrykk2: Strenger eller numeriske uttrykk som du vil sammenligne. Hvis uttrykkene samsvarer, returnerer CBool-funksjonen True (Sann), og i motsatt fall blir False (Usann) returnert.
Tall: Et numerisk uttrykk som du vil konvertere. Hvis uttrykket er lik 0, returneres False (Usann), og hvis ikke, returneres True (Sann).
I følgende eksempel brukes CBool-funksjonen til å evaluere verdien som returneres av Instr-funksjonen. Funksjonen kontrollerer om ordet "and" (og) finnes i setningen som ble angitt av brukeren.
Sub ExampleCBool
Dim sText As String
sText = InputBox("Skriv inn en kort setning:")
REM Kontroller om ordet »and« forekommer i setningen.
REM I stedet for kommandolinjen
REM If Instr(Input, "and")<>0 Then...
REM CBool-funksjonen brukes slik:
If CBool(Instr(sText, "and")) Then
MsgBox "Ordet »and« forekommer i setningen du skrev inn!"
EndIf
End Sub