Returnează o valoare Variant (număr întreg) indicând rezultatul unui expresie șir.
Sintaxă
StrComp ( string1, șir2 [, comparare ] )
Sintaxa funcției StrComp are următoarele argumente:
|
Argument |
Descriere |
|
string1 |
Obligatoriu. Orice expresie șir validă. |
|
șir2 |
Obligatoriu. Orice expresie șir validă. |
|
Comparați |
Opțional. Specifică tipul de comparație între corzi. Dacă comparareargument este NULL, apare o eroare. Dacă comparație este omisă, setarea de comparare a opțiunii determină tipul de comparație. |
Setări
Setările de argument comparație sunt:
|
Constantă |
valoare |
Descriere |
|
vbBinaryCompare |
0 |
Efectuează o comparație binară. |
|
vbTextCompare |
1 |
Efectuează o comparație textuală. |
|
vbDatabaseCompare |
2 |
doarMicrosoft Office Access 2007. Efectuează o comparație pe baza informațiilor din baza de date. |
Valori returnate
Funcția StrComp are următoarele valori de returnare:
|
If |
StrComp returnează |
|
string1 este mai mic decât șir2 |
-1 |
|
string1 este egal cu șir2 |
0 |
|
string1 este mai mare decât șir2 |
1 |
|
string1 sau șir2 este Null |
Nul |
Exemplu de interogare
|
Expresie |
Rezultatele |
|
Selectați ProductSales. ProductID, StrComp (ProductID, "PRO_XYZ10") ca ComparisonResult din ProductSales; |
Returnează valorile din câmpul "ProductID", compară valorile din "ProductID" cu "PRO_XYZ1" și returnează rezultatele în coloana ComparisonResult. "ProductID" este egal cu "PRO_XYZ10", funcția StrComp va returna 0. Dacă "ProductID" este mai mic decât "PRO_XYZ10", funcția StrComp va reveni-1. Dacă "ProductID" este mai mare decât "PRO_XYZ10", funcția StrComp va returna 1. Dacă "ProductID" sau "PRO_XYZ10" este NULL, funcția StrComp va returna NULL. |
Exemplu VBA
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA).
Acest exemplu utilizează funcția StrComp pentru a returna rezultatele unei comparații de șir. Dacă al treilea argument este 1, se efectuează o comparație textuală; Dacă al treilea argument este 0 sau omis, se efectuează o comparație binară.
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.
