Функция VarType

Статья
04/07/2023

Возвращает целое число , указывающее подтип переменной или тип свойства объекта по умолчанию.

Синтаксис

VarType(варнаме)

Обязательный аргументварнаме — это variant, содержащий любую переменную, кроме переменной определяемого пользователем типа.

Возвращаемые значения

Возвращается одна из следующих констант или суммирование их числа.

Константа	Значение	Описание
vbEmpty	0	Пустое (не инициализированный)
vbNull	1	Null (данные отсутствуют)
vbInteger	2	Integer
vbLong	3	Длинное целое
vbSingle	4	Число с плавающей запятой (точкой) одиночной точности
vbDouble	5	Число с плавающей запятой (точкой) двойной точности
vbCurrency	6	Значение типа Currency
vbDate	7	Значение типа Date
vbString	8	String
vbObject	9	Объект
vbError	10	Значение ошибки
vbBoolean	11	Значение типа Boolean
vbVariant	12	Variant (используется только с массивами вариантов)
vbDataObject	13	Объект для доступа к данным
vbDecimal	14	Значение типа Decimal
vbByte	17	Значение типа Byte
vbLongLong	20	Целое число LongLong (допустимо только на 64-разрядных платформах)
vbUserDefinedType	36	Варианты, содержащие типы, определенные пользователем
vbArray	8192	Массив (всегда добавляется в другую константу при возврате этой функцией)

Примечание.

Приведенные здесь константы определены в Visual Basic для приложений, Их имена можно использовать в коде вместо фактических значений.

Замечания

Если объект передается и имеет свойство по умолчанию, VarType(object) возвращает тип свойства объекта по умолчанию.

Функция VarType никогда не возвращает значение для vbArray отдельно. Он всегда добавляется к другому значению для указания массива определенного типа. Например, значение, возвращаемое для массива целых чисел, вычисляется как vbInteger + vbArray или 8194.

Константа vbVariant возвращается только в сумме с константой vbArray, обозначая, что аргумент функции VarType является массивом типа Variant.

Пример

В этом примере функция VarType используется для определения подтипов различных переменных и, в одном случае, типа свойства объекта по умолчанию.

Dim MyCheck
Dim IntVar, StrVar, DateVar, AppVar, ArrayVar
' Initialize variables.
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/1969#
Set AppVar = Excel.Application
ArrayVar = Array("1st Element", "2nd Element")
' Run VarType function on different types.
MyCheck = VarType(IntVar)   ' Returns 2.
MyCheck = VarType(DateVar)  ' Returns 7.
MyCheck = VarType(StrVar)   ' Returns 8.
MyCheck = VarType(AppVar)   ' Returns 8 (vbString)
                            ' even though AppVar is an object.
MyCheck = VarType(ArrayVar) ' Returns 8204 which is
                            ' `8192 + 12`, the computation of
                            ' `vbArray + vbVariant`.

См. также

Функции (Visual Basic для приложений)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через