IBM Lotus Symphony
|
Konvertiert einen Zeichenfolgevergleich, respektive einen Vergleich numerischer Werte in einen booleschen Ausdruck oder wandelt einen einzelnen numerischen Ausdruck in einen booleschen Ausdruck um.
CBool (Ausdruck1 {= | <> | < | > | <= | >=} Ausdruck2) oder CBool (Zahl)
Bool
Ausdruck1, Ausdruck2: Beliebige numerische oder Zeichenfolgeausdrücke, die Sie vergleichen möchten. Sind die Ausdrücke identisch, gibt die Funktion CBool den Wert True zurück, ansonsten False.
Zahl: Ein beliebiger numerischer Ausdruck, den Sie konvertieren möchten. Wenn der Ausdruck 0 ergibt, wird False zurückgegeben, ansonsten True.
Im folgenden Beispiel wird die Funktion CBool verwendet, um den Rückgabewert der Funktion Instr auszuwerten. Die Funktion überprüft, ob der vom Benutzer eingegebene Satz das Wort "and" enthält.
Sub ExampleCBool
Dim sText As String
sText = InputBox("Bitte geben Sie einen kurzen Satz ein:")
REM Prüfen, ob in dem vom Benutzer eingegebenen Satz das Wort 'und' vorkommt.
REM Anstatt der Befehlszeile
REM If Instr(Eingabe, "und")<>0 Then...
REM Die CBool-Funktion wird wie folgt verwendet:
If CBool(Instr(sText, "und")) Then
MsgBox "Das Wort 'und' kommt in dem von Ihnen eingegebenen Satz vor!"
EndIf
End Sub