CBool-funktion
Konverterer en strengsammenligning eller numerisk sammenligning til et logisk udtryk, eller konverterer et enkelt numerisk udtryk til et logisk udtryk.
Syntaks:
CBool (Udtryk1 {= | <> | < | > | <= | >=} Udtryk2) eller CBool (Tal)
Returværdi:
Bool
Parametre:
Udtryk1, Udtryk2: Vilkårlige streng- eller numeriske udtryk, som du vil sammenligne. Hvis udtrykkene er ens, returnerer funktionen CBool True, ellers False.
Tal: Ethvert numerisk udtryk, som du vil konvertere. Hvis udtrykket er lig med 0, returneres False, ellers Sand.
Det følgende eksempel bruger funktionen CBool til at vurdere den værdi, der bliver returneret af funktionen Instr. Funktionen kontrollerer om ordet "og" findes i sætningen som blev indtastet af brugeren.
Eksempel:
Sub ExampleCBool
Dim sText As String
sTekst = InputBox("Indtast en kort sætning:")
REM Undersøg om ordet »og« findes i sætningen.
REM I stedet for kommandolinjen
REM If Instr(Input "og")<>0 Then...
REM CBool funktionen bliver anvendt som følger:
If CBool(Instr(sTekst, "og")) Then
MsgBox "ordet »og« findes i sætningen du indtastede!"
EndIf
End Sub