Logical Expressions : Logical Operators « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. Logical Operators

Logical Expressions

 
Sub Main()
    Dim num1 As Integer
    Dim num2 As Single
    Dim str1 As String
    Dim str2 As String
    Dim obj1 As Object
    Dim obj2 As Object
    Dim result As Boolean
    num1 = 10
    num2 = 10
    str1 = "10"
    str2 = "ABC"
    Set obj1 = Range("A1")
    Set obj2 = Range("A1")
    
    result = (num1 = num2)      'result holds True
    result = (num1 < num2)      'result holds False
    result = (num1 > num2)      'result holds False
    result = (num1 >= num2)     'result holds True
    result = (num1 <= num2)     'result holds True
    result = (num1 <> num2)     'result holds False
    
    result = (num1 = str1)      'result holds True
'    result = (num1 = str2)      'Type mismatch error
    
    result = (str1 = str2)       'result holds False
    result = (str1 > str2)       'result holds False
    result = (str1 < str2)       'result holds True
    result = ("a" < "A")         'result holds False
    result = (str1 >= str2)     'result holds False
    result = (str1 <= str2)     'result holds True
    result = (str1 <> str2)     'result holds True
    
    
    result = (obj1 Is obj2)      'result holds False
             Set obj1 = obj2
    result = (obj1 Is obj2)      'result holds True
End Sub
 

 

Related examples in the same category