[RESOLVED] Return values from boolean

[cssriraman]

Hi,

Is there any builtin function which will give value 1 for True and value 0 to false. I have following function:

Private Function BoolToVal(ByVal blnTemp As Boolean) As Integer
'This function will return 1 if the value is true else will return 0
    If blnTemp = True Then
        BoolToVal = 1
    Else
        BoolToVal = 0
    End If
End Function

[sigid]

...how about "val = ABS(blnVal)"? Any TRUE boolean in VB is = -1, so just remove the sign...

[cssriraman]

Found a solution myself. Abs(Int(true)) will return 1 and Abs(Int(false)) will return 0

Anyway,

Thanks.

[cssriraman]

...how about "val = ABS(blnVal)"? Any TRUE boolean in VB is = -1, so just remove the sign...

Thanks, I already found the solution.

[leinad31]

Cint(True) returns negative one cause all the bits are set to 1 including the highest bit (which determines +/-).

So use...

Debug.Print (CInt(yourbool) AND 1)