Funkcija Cbool
Spremeni primerjavo med nizi ali števili v Boolov izraz, ali pa spremeni en sam numerični izraz v Boolov izraz.
Skladnja:
CBool (Izraz1 {= | <> | < | > | <= | >=} Izraz2) ali CBool (Število)
Vrnjena vrednost:
Bool
Parametri:
Izraz1, Izraz2: poljubna niza ali numerična izraza, ki ju želite primerjati. Če se izraza skladata, bo funkcija CBool vrnila True, v nasprotnem primeru pa False.
Število: poljuben numerični izraz, ki ga želite pretvoriti. Če ima izraz vrednost 0, funkcija vrne False, drugače pa True.
Naslednji primer uporabi funkcijo CBool, da izračuna vrednost, ki jo vrača funkcija Instr. Funkcija preverja, če se v stavku, ki ga je vnesel uporabnik, nahaja beseda »in«.
Primer:
Sub ExampleCBool
Dim sText As String
sBesedilo = InputBox("Prosimo, vtipkajte stavek:")
' Preverjamo, če se v stavku nahaja beseda »in«.
' namesto ukazne vrstice
' If Instr(Input, "in")<>0 Then...
' uporabimo funkcijo CBool takole:
If CBool(Instr(sBesedilo, "in")) Then
MsgBox "V stavku, ki ste ga vtipkali, se nahaja beseda »in«!"
EndIf
End Sub