VarType Function

Chức năng
Trả về một số nguyên đại điện cho loại của một biến.

Cú pháp
VarType ( Varname )
Bảng giá trị trả về:

Constant	Value	Description
vbEmpty	0	Empty (uninitialized)
vbNull	1	Null (no valid data)
vbInteger	2	Integer
vbLong	3	Long integer
vbSingle	4	Single-precision floating-point number
vbDouble	5	Double-precision floating-point number
vbCurrency	6	Currency value
vbDate	7	Date value
vbString	8	String
vbObject	9	Object
vbError	10	Error value
vbBoolean	11	Boolean value
vbVariant	12	Variant (used only with arrays of variants)
vbDataObject	13	A data access object
vbDecimal	14	Decimal value
vbByte	17	Byte value
vbLongLong	20	LongLong integer (Valid on 64-bit platforms only.)
vbUserDefinedType	36	Variants that contain user-defined types
vbArray	8192	Array

Ví Dụ

Sub Function_VARTYPE() Dim vVar, StrVar As String, IntVar As Integer, LngVar As Long, SngVar As Single Dim ArrVar(1 To 4), DateVar As Date, Arr() As String, vTxt As TextBox BoolVar = True VariVar = Split("Hoc Vien VBA Excel") Debug.Print VarType(vVar) ' Returns 0(empty) Debug.Print VarType(Kieu) ' Returns 0(uninitialized) Debug.Print VarType(IntVar) ' Returns 2 Debug.Print VarType(StrVar) ' Returns 8 Debug.Print VarType(LngVar) ' Returns 3 Debug.Print VarType(SngVar) ' Returns 4 Debug.Print VarType(DateVar) ' Returns 7 Debug.Print VarType(BoolVar) ' Returns 11 Debug.Print VarType(ArrVar) ' Returns 8204 = array + variant Debug.Print VarType(Arr) ' Returns 8200 = array + string Debug.Print VarType(VariVar) ' Returns 8200 = array + string Debug.Print VarType(vTxt) ' Returns 9 End Sub

Kết quả:
Nhấn Ctrl + G để mở cửa sổ Immediate để xem kết quả.