[RESOLVED] Return values from boolean

Hi,

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

VB Code:

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

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

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

Anyway,

Thanks.

Quote:

---

Originally Posted by sigid

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

---

Thanks, I already found the solution.

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)