IBM Lotus Symphony
|
Muuntaa merkkijonovertailun tai numeerisen vertailun Boolen lausekkeeksi tai muuntaa yksittäisen numeerisen lausekkeen Boolen lausekkeeksi.
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)
Bool (totuusarvo)
Expression1, Expression2: Mitkä tahansa merkkijonolausekkeet tai numeeriset lausekkeet, joita haluat vertailla. Jos lausekkeet vastaavat toisiaan, CBool-funktio palauttaa arvon True, muutoin se palauttaa arvon False.
Number: Mikä tahansa numeerinen lauseke, jonka haluat muuntaa. Jos lausekkeen arvo on 0, palautuu arvo False, muutoin palautuu arvo True.
Seuraavassa esimerkissä määritetään CBool-funktion avulla arvo, jonka Instr-funktio palauttaa. Funktio tarkistaa, onko käyttäjän kirjoittamassa virkkeessä sanaa "and".
Sub ExampleCBool
Dim sText As String
sText = InputBox("Please enter a short sentence:")
REM Tarkista, onko sanaa »and« virkkeessä.
REM Komentorivin sijasta
REM If Instr(Input, "and")<>0 Then...
REM sijaan CBool-funktiota käytetään seuraavasti:
If CBool(Instr(sText, "and")) Then
MsgBox "The word »and« appears in the sentence you entered!"
EndIf
End Sub