IBM Lotus Symphony
|
文字列や数値の比較演算結果、および単独の数値表式をブール型の表式に変換します。
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) あるいは CBool (Number)
ブール型
Expression1, Expression2: 比較する文字列および数値の表式。CBool 関数は、2 つの表式が一致すれば True を返し、それ以外の場合は False を返します。
Number: 変換させる数値表式。表式が 0 に等しい場合は False を返し、それ以外の場合は True を返します。
下記の例は、Instr 関数から返される値を、CBool 関数を使って評価させています。この関数は、ユーザーが入力した文章の中に「and」という単語が含まれているかどうかを調べます。
Sub ExampleCBool
Dim sText As String
sText = InputBox("Please enter a short sentence:")
REM 文章の中に「and」があるかどうかを調べます。
REM 通常こうした判定には下記のような IF 文を使用します。
REM If Instr(Input, "and")<>0 Then...
REM ここではその代わりに CBool 関数を使って判定をしています。
If CBool(Instr(sText, "and")) Then
MsgBox "The word »and« appears in the sentence you entered!"
EndIf
End Sub