Returnerar ett värde av datatypen Variant (Heltal) som anger resultatet av ett stränguttryck.
Syntax
StrComp ( sträng1; sträng2 [, jämför ] )
Syntaxen för funktionen StrComp har följande argument:
Argument |
Beskrivning |
---|---|
sträng1 |
Obligatoriskt. Ett giltigt stränguttryck. |
sträng2 |
Obligatoriskt. Ett giltigt stränguttryck. |
jämför |
Valfritt. Anger typen av strängjämförelse. Om jämförelsenargument är Null uppstår ett fel. Om jämför utelämnas bestämmer inställningen Alternativjämförelse typen av jämförelse. |
Inställningar
Inställningarna för argumentet jämför är:
Konstant |
Värde |
Beskrivning |
---|---|---|
vbBinaryCompare |
0 |
Utför en binär jämförelse. |
vbTextCompare |
1 |
Utför en textjämförelse. |
Returvärden
Funktionen StrComp har följande returvärden:
Om |
StrComp returnerar |
---|---|
sträng1 är mindre än sträng2 |
-1 |
sträng1 är lika med sträng2 |
0 |
sträng1 är större än sträng2 |
1 |
sträng1 eller sträng2 är Null |
Null |
Frågeexempel
Uttryck |
Resultat |
---|---|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Returnerar värdena från fältet "ProductID", jämför värdena i "ProductID" med "PRO_XYZ1" och returnerar resultatet i kolumnen ComparisonResult. "ProductID" är lika med "PRO_XYZ10" returnerar funktionen StrComp 0. Om "ProductID" är mindre än "PRO_XYZ10" returnerar funktionen StrComp -1. Om "ProductID" är större än "PRO_XYZ10" returnerar funktionen StrComp 1. Om antingen "ProductID" eller "PRO_XYZ10" är NULL returnerar funktionen StrComp NULL. |
VBA-exempel
Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA).
I det här exemplet används funktionen StrComp för att returnera resultatet av en strängjämförelse. Om det tredje argumentet är 1 utförs en textjämförelse. Om det tredje argumentet är 0 eller utelämnas utförs en binär jämförelse.
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, 1) ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1) ' Returns 1.