IBM Lotus Symphony
|
Pretvori primerjavo niza ali številčno primerjavo v logični izraz ali pretvori posamezen številski izraz v logični izraz.
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)
Bool
Expression1, Expression2: Katerakoli izraza nizov ali številska izraza, ki ju želite primerjati. Če se izraza ujemata, funkcija CBool vrne True, v nasprotnem primeru vrne False.
Number: Katerikoli številski izraz, ki ga želite pretvoriti. Če je izraz enak 0, funkcija vrne False, drugače pa se vrne True.
Naslednji primer uporablja funkcijo CBool za oceno vrednosti, ki jo vrne funkcija Instr. Ta funkcija preveri, če je v stavku, ki ga vnese uporabnik, najdena beseda "and".
Sub ExampleCBool
Dim sText As String
sText = InputBox("Please enter a short sentence:")
REM Proof if the word »and« appears in the sentence.
REM Instead of the command line
REM If Instr(Input, "and")<>0 Then...
REM the CBool function is applied as follows:
If CBool(Instr(sText, "and")) Then
MsgBox "The word »and« appears in the sentence you entered!"
EndIf
End Sub