CBool Function

Konvertas ĉenan komparon aŭ numeran komparon al bulea esprimo, aŭ konvertas numeran esprimon al bulea esprimo.

Sintakso:


CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)

Liverota valoro:

Bool

Parametroj:

Expression1, Expression2: Ĉena aŭ numera esprimo komparotaj. Se la esprimoj kongruas, la funkcio CBool liveras la valoron True, alie False.

Number: Numera esprimo konvertota. Se la esprimo egalas al 0, False liveriĝas, alie True liveriĝas.

La jena ekzemplo uzas la funkcion CBool por komputi la valoron liverotan de la funkcio Instr. La funkcio kontrolas ĉu la vorto "kaj" troviĝas en la frazo tajpita de la uzanto.

Error codes:

5 Nevalida procedurvoko

Ekzemplo:


Sub ExampleCBool
Dim sText As String
    sText = InputBox("Bonvolu tajpi mallongan frazon:")
    REM Komputi ĉu la vorto »kaj« troviĝas en la frazo.
    REM Anstataŭ la komanda linio.
    REM If Instr(Input, "kaj")<>0 Then...
    REM la funkcio CBool faras jene:
    If CBool(Instr(sText, "kaj")) Then
        MsgBox "La vorto »kaj« troviĝas en la frazo kiun vi tajpis!"
    EndIf
End Sub

Bonvolu subteni nin!