CBool funktsioon

Teisendab string- vĂ”i arvvĂ”rdluse tĂ”evÀÀrtusavaldiseks vĂ”i ĂŒksiku arvavaldise tĂ”evÀÀrtusavaldiseks.

SĂŒntaks:


CBool (Avaldis1 {= | <> | < | > | <= | >=} Avaldis2) vÔi CBool (arv)

TagastusvÀÀrtus:

Bool

Parameetrid:

Avaldis1, Avaldis2: Suvaline string- vÔi arvavaldis, mida vÔrreldakse. Kui vÔrdus vÔi vÔrratus on tÔene, tagastab CBool vastuse TÔene, vastasel juhul tagastatakse VÀÀr.

Number: suvaline arvavaldis, mida soovid teisendada. Kui avaldis vÔrdub 0, siis tagastatakse vÀÀrtus VÀÀr, muul juhul tagastatakse vÀÀrtus TÔene.

JÀrgmises nÀites kasutatakse funktsiooni Instr tagastatud vÀÀrtuse hindamiseks funktsiooni CBool. Funktsioon kontrollib, kas kasutaja sisestatud lauses esineb sÔna "and".

Veakoodid:

5 Vigane protseduuri vÀljakutse

NĂ€ide:


Sub ExampleCBool
Dim sText As String
    sText = InputBox("Palun sisesta lĂŒhike lause:")
    REM Kinnitus, kas lauses esineb sÔna »and«.
    REM KĂ€surea asemel
    REM If Instr(Input, "ja")<>0 Then...
    REM Funktsioon CBool rakendatakse jÀrgmiselt:
    If CBool(Instr(sText, "ja")) Then
        MsgBox "SÔna »ja« on sinu sisestatud lauses tÀiesti olemas!"
    EndIf
End Sub

Palun toeta meid!