Функция VarType

  • Статья

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

Синтаксис

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`.

См. также

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

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