Vrátí hodnotu typu Variant (Integer) označující výsledek Řetězcový výraz.
Syntaxe
StrComp ( řetězec1; řetězec2 [; porovnat ] )
Syntaxe funkce StrComp má tyto argumenty:
|
Argument |
Popis |
|---|---|
|
řetězec1 |
Povinný argument. Libovolný platný řetězcový výraz. |
|
řetězec2 |
Povinný argument. Libovolný platný řetězcový výraz. |
|
Porovnat |
Nepovinný argument. Určuje typ porovnání řetězců. Pokud je porovnáníArgument Null, dojde k chybě. Pokud je parametr compare vynechán, určuje typ porovnání nastavení Porovnání možností . |
Nastavení
Nastavení argumentu porovnání :
|
Konstanta |
Value (Hodnota) |
Popis |
|---|---|---|
|
vbBinaryCompare |
0 |
Provede binární porovnání. |
|
vbTextCompare |
1 |
Provede textové porovnání. |
Návratové hodnoty
Funkce StrComp má následující návratové hodnoty:
|
Pokud |
Vrácení strComp |
|---|---|
|
řetězec1 je menší než řetězec2. |
-1 |
|
string1 se rovná řetězci2. |
0 |
|
řetězec1 je větší než řetězec2. |
1 |
|
string1 nebo string2 má hodnotu Null. |
Null |
Příklad dotazu
|
Výraz |
Výsledky |
|---|---|
|
SELECT ProductSales.ProductID, StrComp(ProductID;"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Vrátí hodnoty z pole ProductID, porovná hodnoty v poli ProductID s "PRO_XYZ1" a vrátí výsledky ve sloupci ComparisonResult. "Idproduktu" se rovná "PRO_XYZ10", funkce StrComp vrátí hodnotu 0. Pokud je hodnota ProductID menší než PRO_XYZ10, vrátí funkce StrComp hodnotu -1. Pokud je hodnota ProductID větší než PRO_XYZ10, vrátí funkce StrComp hodnotu 1. Pokud hodnota ProductID nebo PRO_XYZ10 má hodnotu NULL, vrátí funkce StrComp hodnotu NULL. |
Příklad jazyka VBA
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications).
Tento příklad používá funkci StrComp k vrácení výsledků porovnání řetězců. Pokud je třetí argument 1, provede se textové porovnání; Pokud je třetí argument 0 nebo je vynechán, provede se binární porovnání.
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.
