Возвращает значение Variant (Integer), указывающее результат строковое выражение.
Синтаксис
StrComp ( string1, string2 [, compare ] )
Аргументы функции StrComp :
|
Аргумент |
Описание |
|
строка1 |
Обязательный аргумент. Любое допустимое строковое выражение. |
|
строка2 |
Обязательный аргумент. Любое допустимое строковое выражение. |
|
compare |
Необязательный аргумент. Указывает тип сравнения строк. Еслиаргументсравнения имеет значение Null, возникает ошибка. Если параметр сравнение опущен, параметр Option Compare определяет тип сравнения. |
Параметры
Аргумент compare может принимать следующие значения.
|
Константа |
Значение |
Описание |
|
vbBinaryCompare |
0 |
Выполняется двоичное сравнение. |
|
vbTextCompare |
1 |
Выполняется текстовое сравнение. |
|
vbDatabaseCompare |
2 |
Только в Microsoft Office Access 2007. Выполняется сравнение на основе сведений из базы данных. |
Возвращаемые значения
Функция StrComp имеет следующие возвращаемые значения:
|
If |
StrComp возвращает |
|
значение string1 меньше , чем string2 |
-1 |
|
строка string1 равна строке2. |
0 |
|
значение string1 больше, чем string2 |
1 |
|
string1 или string2 имеет значение NULL. |
Null |
Пример запроса
|
Expression |
Результаты |
|
SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; |
Возвращает значения из поля "ProductID", сравнивает значения в "ProductID" с "PRO_XYZ1" и возвращает результаты в столбце CompareResult. "ProductID" равен "PRO_XYZ10", функция StrComp вернет 0. Если "ProductID" меньше "PRO_XYZ10", функция StrComp вернет -1. Если значение ProductID больше PRO_XYZ10, функция StrComp вернет значение 1. Если "ProductID" или "PRO_XYZ10" имеет значение NULL, функция StrComp вернет ЗНАЧЕНИЕ NULL. |
Пример VBA
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA).
В этом примере функция StrComp используется для возврата результатов сравнения строк. Если третий аргумент равен 1, выполняется текстовое сравнение; Если третий аргумент равен 0 или опущен, выполняется двоичное сравнение.
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.
