Функция CBool
Преобразува низово или числово сравнение или единичен числов израз към стойност от тип Boolean.
Синтаксис:
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) или CBool (Number)
Връщана стойност:
Bool
Параметри:
Expression1, Expression2: низови или числови, които искате да бъдат сравнени. Ако си съответстват, функцията CBool връща True, в противен случай – False.
Number: числов израз, който да бъде преобразуван. Ако стойността му е 0, се връща False, в противен случай – True.
В следващия пример с функцията CBool се оценява стойността, върната от функцията Instr. Функцията проверява дали е открита думата „пет“ в изречение, въведено от потребителя.
Пример:
Sub ExampleCBool
Dim sText As String
sText = InputBox("Моля, въведете кратко изречение:")
' Проверяваме дали думата "пет" се съдържа в изречението.
' Вместо реда
' If Instr(Input, "пет")<>0 Then…
' прилагаме функцията CBool както следва:
If CBool(Instr(sText, "пет")) Then
MsgBox "Думата „пет“ се среща във въведеното от вас изречение!"
EndIf
End Sub