Mengembalikan Bilangan Bulat yang mengindikasikan subtipe variabel.
Sintaks
VarType(varname)
Argumen varnameyang diperlukan adalah Varian yang berisi variabel apa pun kecuali variabel tipe yang ditentukan pengguna.
Nilai yang Dikembalikan
| Konstan | Value | Deskripsi |
|---|---|---|
| vbEmpty | 0 | Kosong (tidak terinisialisasi) |
| vbNull | 1 | Null (tidak ada data yang valid) |
| vbInteger | 2 | Bilangan bulat |
| vbLong | 3 | Bilangan bulat panjang |
| vbSingle | 4 | Angka titik mengambang presisi tunggal |
| vbDouble | 5 | Angka titik mengambang 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 | Varian (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. Nama dapat digunakan di mana saja dalam kode Anda sebagai ganti nilai aktual.
Keterangan
Fungsi VarType tidak pernah mengembalikan nilai untuk vbArray . Ini selalu ditambahkan ke beberapa nilai lain untuk menunjukkan array tipe tertentu. Konstanta vbVariant hanya dikembalikan dalam hubungannya dengan vbArray untuk menunjukkan bahwa argumen untuk fungsi VarType adalah array dari tipe Varian. Misalnya, nilai yang dikembalikan untuk array bilangan bulat dihitung sebagai vbInteger + vbArray, atau 8194. Jika objek memiliki properti default, VarType(object) mengembalikan tipe properti default objek.
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 VarType untuk 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.