Mengembalikan yang Integer menunjukkan subtipe variabel.
Sintaks
VarType(varname)
Argumen yang diperlukan varname adalah Variant yang berisi variabel apa pun kecuali tipe yang ditentukan pengguna.
Mengembalikan nilai
| Konstanta | Value | Deskripsi |
|---|---|---|
vbEmpty |
0 | Kosong (tidak diinisialisasi) |
vbNull |
1 | Null (tidak ada data yang valid) |
vbInteger |
2 | Bilangan bulat |
vbLong |
3 | Bilangan bulat panjang |
vbSingle |
4 | Angka floating-point presisi tunggal |
vbDouble |
5 | Angka floating-point presisi ganda |
vbCurrency |
6 | Nilai mata uang |
vbDate |
7 | Nilai tanggal |
vbString |
8 | String |
vbObject |
9 | Object |
vbError |
10 | Nilai kesalahan |
vbBoolean |
11 | Nilai Boolean |
vbVariant |
1.2 |
Variant (hanya digunakan dengan array varian) |
vbDataObject |
1,3 | Objek akses data |
vbDecimal |
14 | Nilai desimal |
vbByte |
17 | Nilai byte |
vbUserDefinedType |
36 | Varian yang berisi tipe yang ditentukan pengguna |
vbArray |
8192 | Array |
Catatan
Konstanta ini ditentukan oleh Visual Basic for Applications (VBA). Anda dapat menggunakan nama di mana saja dalam kode, bukan nilai sebenarnya.
Keterangan
Fungsi tidak VarType pernah mengembalikan nilai untuk vbArray dengan sendirinya. Aplikasi ini selalu menambahkan nilai tersebut ke nilai lain untuk menunjukkan larik dari jenis tertentu.
Konstanta vbVariant dikembalikan hanya dengan vbArray untuk menunjukkan bahwa argumen untuk VarType adalah array Variant nilai. Misalnya, nilai yang dikembalikan untuk array bilangan bulat adalah vbInteger + vbArray, atau 8194.
Jika objek memiliki properti default, mengembalikan tipe properti default objek. VarType(object)
Contoh
Catatan
Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi untuk VarType menentukan subtipe variabel.
Dim IntVar, StrVar, DateVar, MyCheck
' Initialize variables.
IntVar = 459
StrVar = "Hello World"
DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' Returns 2.
MyCheck = VarType(DateVar) ' Returns 7.
MyCheck = VarType(StrVar) ' Returns 8.