Trả về một biểu Integer thị loại con của một biến.
Cú pháp
VarType(varname)
Tham đối bắt buộc varname là chứa Variant biến bất kỳ ngoại trừ kiểu do người dùng xác định.
Trả về giá trị
| Hằng số | Value | Mô tả |
|---|---|---|
vbEmpty |
0 | Trống (chưa khởi tạo) |
vbNull |
1 | Null (không có dữ liệu hợp lệ) |
vbInteger |
2 | Số nguyên |
vbLong |
3 | Số nguyên dài |
vbSingle |
4 | Số dấu phẩy động có độ chính xác đơn |
vbDouble |
5 | Số dấu phẩy động có độ chính xác kép |
vbCurrency |
6 | Giá trị tiền tệ |
vbDate |
7 | Giá trị ngày |
vbString |
8 | Chuỗi |
vbObject |
9 | Object |
vbError |
10 | Giá trị lỗi |
vbBoolean |
11 | Giá trị boolean |
vbVariant |
12 |
Variant (chỉ được sử dụng với mảng biến thể) |
vbDataObject |
13 | Đối tượng truy nhập dữ liệu |
vbDecimal |
14 | Giá trị thập phân |
vbByte |
17 | Giá trị byte |
vbUserDefinedType |
36 | Các biến thể có chứa kiểu do người dùng xác định |
vbArray |
8192 | Array |
Lưu ý
Các hằng số này được xác định bởi Visual Basic for Applications (VBA). Bạn có thể sử dụng tên ở bất cứ đâu trong mã của mình thay vì các giá trị thực tế.
Chú thích
Hàm VarType không bao giờ trả về giá trị cho riêng vbArray nó. Nó luôn luôn thêm giá trị đó vào một giá trị khác để biểu thị một mảng thuộc một kiểu cụ thể.
Hằng vbVariant số được trả về chỉ báo vbArray rằng đối số cho là VarType một mảng Variant giá trị. Ví dụ, giá trị trả về cho một mảng số nguyên là vbInteger + vbArray, hoặc 8194.
Nếu đối tượng có thuộc tính mặc định, sẽ VarType(object) trả về loại thuộc tính mặc định của đối tượng.
Ví dụ
Lưu ý
Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này dùng VarType hàm để xác định kiểu con của biến.
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.