• Home
 · 
• Miscellaneous
 · 
• Determines if a variant is equivalent to either True or False.

Determines if a variant is equivalent to either True or False.

Determines if a variant is equivalent to either True or False.

Rate Determines if a variant is equivalent to either True or False.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    
    On Error Resume Next

    Dim blnReturnVal As Boolean
    
    If IsNumeric(vntValue) Then
        blnReturnVal = (vntValue = True)
    Else
        If Not IsDate(vntValue) Then
            Dim strText As String
            strText = Trim$(UCase$(vntValue))
            If strText = "TRUE" Or strText = "1" Or strText = "YES" Then
                blnReturnVal = True
            End If
        Else
            blnReturnVal = (CInt(vntValue) = True)
        End If
    End If

    TrueOrFalse = blnReturnVal

End Function