Vrátí hodnotu typu Variant (Integer), která vyjadřuje výsledek řetězcového výrazu.
Syntaxe
StrComp(řetězec_1, řetězec_2 [, porovnání ] )
Syntaxe funkce StrComp obsahuje tyto argumenty:
| Argument | Popis |
|---|---|
| řetězec_1 | Povinný argument. Libovolný platný řetězcový výraz. |
| řetězec_2 | Povinný argument. Libovolný platný řetězcový výraz. |
| porovnat | Nepovinný argument. Určuje typ porovnání řetězců. Pokud má argument porovnáníhodnotu Null, dojde k chybě. Pokud porovnání vynecháte, je typ porovnání určen nastavením Option Compare . |
Nastavení
Nastavení porovnávacího argumentu jsou:
| Konstanta | Hodnota | Popis |
|---|---|---|
| vbBinaryCompare | 0 | Provede binární porovnání. |
| vbTextCompare | 1 | Provede porovnání textu. |
Vrácené hodnoty
Funkce StrComp vrátí následující hodnoty:
| Pokud | Výsledek funkce StrComp |
|---|---|
| řetězec_1 je menší než řetězec_2 | -1 |
| řetězec_1 se rovná řetězec_2. | 0 |
| řetězec_1 je větší než řetězec_2 | 1 |
| řetězec_1 nebo řetězec_2 je 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 IDProduktu, porovná je s hodnotou PRO_XYZ1 a vrátí výsledky ve sloupci VýsledekPorovnání. "IDProduktu" se rovná "PRO_XYZ10", funkce StrComp vrátí 0. Pokud je IDProduktu menší než PRO_XYZ10, vrátí funkce StrComp hodnotu -1. Pokud je IDProduktu větší než PRO_XYZ10, vrátí funkce StrComp hodnotu 1. Pokud má "IDProduktu" nebo "PRO_XYZ10" 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).
V tomto příkladu se používá funkce StrComp k vrácení výsledků porovnání řetězců. Pokud je třetí argument 1, provede se porovnání textu; Pokud má třetí argument hodnotu 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.