VBS（VBScript）によるブール型（真：True・偽：False）を返す関数を紹介
ブール型（真：True・偽：False）を返す関数 cbool(A) ：A は数式（数値） 0以外だとTrue、0,nullだとFalseを返す
サンプルソース
Dim A, B, C
A = 5: B = 5
C = CBool(A + B)
MsgBox(C) '0以外なので、Trueを返す
C = CBool(A - B)
MsgBox(C) '0なので、Falseを返す
C = CBool(AB)
MsgBox(C) 'nullだと、Falseを返す
A = 0
C = CBool(A) '0なので、Falseを返す
MsgBox(C)