TypeName Function; VarType Function

Returns text or a numeric value that contain type information for a variable.

TypeName (Varname As Variant) As String VarType (Varname As Variant) As Integer

A text for TypeName suffixed with '()' for arrays. An integer for VarType. The number 8192 is added to the returned value for arrays of type VarType.

Varname: The variable name that you want to determine the type of. The following values are returned:

TypeName
values Named
constant VarType
values Variable type …() 8192 Array of variables Boolean 11 Boolean variable Byte 17 Byte variable Date V_DATE 7 Date variable Currency V_CURRENCY 6 Currency variable Double V_DOUBLE 5 Double-precision floating-point variable Error 11 Error type variable Integer V_INTEGER 2 Integer variable Long V_LONG 3 Long integer variable Object 9 Object variable Single V_SINGLE 4 Single-precision floating-point variable String V_STRING 8 String variable Variant 12 Variant variable (can contain all types specified by the definition) Empty V_EMPTY 0 Uninitialized Variant variable Null V_NULL 1 No valid data

Sub TypeName_VarType_example Const __Object=9, __Error=10, __Boolean=11, __Variant=12, __Byte=17, _ __Array = 8192, aText = "Lorem ipsum dolor sit amet, consectetur …" Dim int16 As Integer, int32() As Long ' V_INTEGER, V_LONG Dim flt32!, flt64() As Double ' V_SINGLE, V_DOUBLE Dim curr@, dat3 As Date ' V_CURRENCY, V_DATE Dim strng() As String, objct() As Object ' V_STRING, … Dim bool As Boolean, unkwn(), byt3 As Byte ' …, V_EMPTY, … Dim table(-3 To 5) MsgBox _ TypeName(int16) &" "& Vartype(int16) &" "& V_INTEGER &" "& Chr(13) &_ TypeName(int32) &" "& Vartype(int32) &" "& V_LONG+__Array &" "& Chr(13) &_ TypeName(flt32) &" "& VarType(flt32) &" "& V_SINGLE &" "& Chr(13) &_ TypeName(flt64) &" "& VarType(flt64) &" "& V_DOUBLE+__Array &" "& Chr(13) &_ TypeName(dat3) &" "& VarType(dat3) &" "& V_DATE &" "& Chr(13) &_ TypeName(curr) &" "& VarType(curr) &" "& V_CURRENCY &" "& Chr(13) &_ TypeName(atext) &" "& VarType(aText) &" "& V_STRING &" "& Chr(13) &_ TypeName(strng) &" "& VarType(strng) &" "& V_STRING+__Array &" "& Chr(13) &_ TypeName(objct) &" "& VarType(objct) &" "& __Object+__Array &" "& Chr(13) &_ TypeName(unkwn) &" "& VarType(unkwn) &" "& V_EMPTY &" "& Chr(13) &_ TypeName(bool) &" "& VarType(bool) &" "& __Boolean &" "& Chr(13) &_ TypeName(varnt) &" "& VarType(varnt) &" "& V_EMPTY &" "& Chr(13) &_ TypeName(table) &" "& VarType(table) &" "&__Variant+__Array &" "& Chr(13) &_ TypeName(byt3) &" "& VarType(byt3) &" "& __Byte _ ,, "Data types in $[officename] Basic" Msgbox "TypeName(table): "&TypeName(table) &Chr(13)& _ "VarType(table)="&Vartype(table) _ ,,"Array of Variant values" End Sub ' TypeName_VarType_example