Vergleichskonstanten

Die folgende Tabelle zeigt die Konstanten und die zugehörigen Beschreibungen:

Das folgende Beispiel veranschaulicht die Verwendung der Vergleichskonstanten:

Beispiel 1:

Dim result
result = StrComp("Hello", "hello", vbBinaryCompare)
 
If result = 0 Then
    'Logic Strings are equal (Binary Comparison)
Else
    'Logic Strings are NOT equal (Binary Comparison)
End If
'Output -> Strings are Not equal (Binary Comparison) Logic

Beispiel 2:

Dim result
result = StrComp("Hello", "hello", vbTextCompare)
 
If result = 0 Then
    'Logic Strings are equal (Text Comparison)
Else
    'Logic Strings are NOT equal (Text Comparison)
End If
 
'Output -> Strings are equal (Text Comparison) Logic

Beispiel 3:

Dim str1, str2
 
str1 = "Apple"
str2 = "apple"
 
If StrComp(str1, str2, vbTextCompare) < 0 Then
    'Logic If
Else
    'Logic Else 
End If
 
'Output -> apple comes before Apple (Binary) ( Logic Else )