Mengembalikan varian (bilangan bulat) yang menunjukkan hasil ekspresi string.
Sintaks
Strcomp ( string1, string2 [, Bandingkan ] )
Sintaks fungsi Strcomp memiliki argumen ini:
Argumen | Deskripsi |
|---|---|
|
string1 |
Diperlukan. Ekspresi string apa pun yang valid. |
|
string2 |
Diperlukan. Ekspresi string apa pun yang valid. |
|
bandingkan |
Optional. Menentukan tipe perbandingan string. JikaargumenCompare adalah null, kesalahan akan terjadi. Jika Compare dihilangkan, opsi Bandingkan pengaturan menentukan tipe perbandingan. |
Pengaturan
Pengaturan Bandingkan argumen adalah:
Konstanta | Nilai | Deskripsi |
|---|---|---|
|
vbBinaryCompare |
0 |
Melakukan perbandingan biner. |
|
vbTextCompare |
1 |
Melakukan perbandingan tekstual. |
|
perbandingkan vbdatabase |
2 |
Microsoft Office Access 2007 saja. Melakukan perbandingan berdasarkan informasi dalam database Anda. |
Nilai yang dikembalikan
Fungsi Strcomp memiliki nilai yang dikembalikan sebagai berikut:
Jika | Strcomp mengembalikan |
|---|---|
|
string1 kurang dari string2 |
-1 |
|
string1 sama dengan string2 |
0 |
|
string1 lebih besar dari string2 |
1 |
|
string1 atau string2 adalah null |
Null |
Contoh kueri
Ekspresi | Hasil |
|---|---|
|
Pilih ProductSales. ProductID, StrComp (ProductID, "PRO_XYZ10") sebagai ComparisonResult dari ProductSales; |
Mengembalikan nilai dari bidang "ProductID", membandingkan nilai dalam "ProductID" dengan "PRO_XYZ1" dan mengembalikan hasil dalam perbandingan kolom. "ProductID" sama dengan "PRO_XYZ10", fungsi StrComp akan mengembalikan 0. Jika "ProductID" kurang dari "PRO_XYZ10", fungsi StrComp akan menghasilkan-1. Jika "ProductID" lebih besar dari "PRO_XYZ10", fungsi StrComp akan mengembalikan 1. Jika "ProductID" atau "PRO_XYZ10" adalah NULL, fungsi StrComp akan mengembalikan NULL. |
Contoh VBA
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA).
Contoh ini menggunakan fungsi Strcomp untuk mengembalikan hasil perbandingan string. Jika argumen ketiga adalah 1, perbandingan tekstual dilakukan; Jika argumen ketiga adalah 0 atau dihilangkan, perbandingan biner dilakukan.
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.
Catatan: Halaman ini diterjemahkan menggunakan mesin dan mungkin terdapat kesalahan tata bahasa atau masalah keakuratan. Kami bertujuan menyediakan konten yang bermanfaat untuk Anda. Dapatkah Anda memberi tahu kami apakah informasi ini bermanfaat untuk Anda? Berikut adalah artikel dalam bahasa Inggris untuk referensi.
