Tagastab variandi (täisarvu), mis näitab stringiavaldiste tulemit.
Süntaks
StrComp(string1, string2 [, compare ] )
Funktsioonil StrComp on järgmised argumendid.
| Argument | Kirjeldus |
|---|---|
| string1 | Nõutav. Mis tahes sobiv stringavaldis. |
| string2 | Nõutav. Mis tahes sobiv stringavaldis. |
| võrdlus | Valikuline. Määrab stringivõrdlustüübi. Kui argument compareon Tühi, ilmneb tõrge. Kui argument compare puudub, määrab võrdluse tüübi säte Option Compare . |
Sätted
Argumendi võrdle sätted võivad olla järgmised.
| Konstant | Väärtus | Kirjeldus |
|---|---|---|
| vbBinaryCompare | 0 | Teeb binaarvõrdluse. |
| vbTextCompare | 1 | Teeb tekstivõrdluse. |
Tagastusväärtused
Funktsioon StrComp võib tagastada järgmised väärtused.
| Tingimus | StrComp tagastab |
|---|---|
| string1 on väiksem kui string2 | -1 |
| string1 võrdub string2-ga | 0 |
| string1 on suurem kui string2 | 1 |
| string1 või string2 on tühiväärtusega | Tühi |
Päringu näide
| Avaldis | Tulemid |
|---|---|
| SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; | Tagastab välja "TooteID" väärtused, võrdleb "TooteID" väärtusi väärtusega "PRO_XYZ1" ja tagastab tulemid veerus ComparisonResult. "ProductID" võrdub "PRO_XYZ10", tagastab funktsioon StrComp väärtuse 0. Kui "ProductID" on väiksem kui "PRO_XYZ10", tagastab funktsioon StrComp -1. Kui "ProductID" on suurem kui "PRO_XYZ10", tagastab funktsioon StrComp väärtuse 1. Kui kas "ProductID" või "PRO_XYZ10" on NULL, tagastab funktsioon StrComp nulli. |
VBA näide
Märkus.
Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis.
Selles näites kasutatakse funktsiooni StrComp stringivõrdluse tulemite tagastamiseks. Kui kolmas argument on 1, tehakse tekstiline võrdlus; kui kolmas argument on 0 või puudub, tehakse binaarvõrdlus.
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.