Zwraca wartość typu wariant (liczba całkowita) wskazującą wynik wyrażenia ciągu.
Składnia
StrComp(ciąg1, ciąg2 [, porównaj ] )
W składni funkcji StrComp występują następujące argumenty:
| Argumenty argumentów | Opis |
|---|---|
| ciąg 1 | Argument wymagany. Dowolne prawidłowe wyrażenie ciągu. |
| ciąg 2 | Argument wymagany. Dowolne prawidłowe wyrażenie ciągu. |
| porównaj | Argument opcjonalny. Określa typ porównania ciągów. Jeśli argument porównaniama wartość null, występuje błąd. Jeśli argument porównanie zostanie pominięty, ustawienie Porównanie opcji określi typ porównania. |
Ustawienia
Ustawienia argumentu porównania są następujące:
| Stała | Wartość | Opis |
|---|---|---|
| vbBinaryCompare | 0 | Wykonuje porównanie binarne. |
| vbTextCompare | 1 | Wykonuje porównanie tekstu. |
Wartości zwracane
Funkcja StrComp ma następujące wartości zwracane:
| Jeśli | StrComp zwraca |
|---|---|
| ciąg1 jest mniejszy niż ciąg2 | -1 |
| ciąg1 jest równe ciągowi2 | 0 |
| ciąg1 jest większy niż ciąg2 | 1 |
| ciąg1 lub ciąg2 ma wartość Null | Null |
Przykład zapytania
| Wyrażenie | Rezultat |
|---|---|
| SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; | Zwraca wartości z pola "ProductID", porównuje wartości z pola "ProductID" z "PRO_XYZ1" i zwraca wyniki w kolumnie ComparisonResult. "ProductID" jest równe "PRO_XYZ10", funkcja StrComp zwróci wartość 0. Jeśli wartość "ProductID" jest mniejsza niż "PRO_XYZ10", funkcja StrComp zwróci wartość -1. Jeśli wartość "ProductID" jest większa niż "PRO_XYZ10", funkcja StrComp zwróci wartość 1. Jeśli wartość argumentu "ProductID" lub "PRO_XYZ10" ma wartość NULL, funkcja StrComp zwróci wartość NULL. |
Przykład kodu VBA
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA).
W tym przykładzie zastosowano funkcję StrComp w celu zwrócenia wyników porównania ciągów. Jeśli trzeci argument wynosi 1, wykonywane jest porównanie tekstowe; Jeśli trzeci argument jest równy 0 lub jest pominięty, wykonywane jest porównanie binarne.
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.