Функція VarType

Застосовується до
Access для Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Повертає ціле число, яке вказує підтип змінної.

Синтаксис

VarType(ім'я_varname)

Обов'язковий аргумент varname– це варіант, який містить будь-яку змінну, крім змінної визначеного користувачем типу.

Значення, що повертаються

Константа Значення Опис
vbEmpty 0 Пустий (неініціалізований)
vbNull 1 Null-значення (немає припустимих даних)
vbInteger 2 Ціле число
vbLong 3 Довге ціле число
vbSingle 4 Одноточне число з рухомою комою
vbDouble 5 Число з подвійною точністю з рухомою комою
vbCurrency 6 Значення грошової одиниці
Дата vbDate 7 Значення дати
Рядок vb 8 Рядок
об'єкт vbObject 9 Object
vbError 10 Значення помилки
vbBoolean 11 Логічне значення
vbVariant 12 Variant (використовується лише з масивами варіантів)
об'єкт vbDataObject 13 Об'єкт доступу до даних
vbDecimal 14 Десяткове значення
vbByte 17 Значення "Байт"
Тип vbUserDefinedType 36 Варіанти, які містять користувацькі типи
vbArray 8192 Масив

    

Примітка.

Ці константи визначено в модулі Visual Basic for Applications. Імена можна використовувати будь-де в коді замість фактичних значень.

Примітки

Функція VarType ніколи не повертає значення для vbArray окремо. Він завжди додається до іншого значення, щоб позначити масив певного типу. Константа vbVariant повертається лише в поєднанні з vbArray , щоб указати, що аргумент функції VarType є масивом типу Variant. Наприклад, значення, повернуте для масиву цілих значень, обчислюється як vbInteger + vbArray або 8194. Якщо об'єкт має властивість за промовчанням, функція VarType(об'єкт) повертає тип властивості об'єкта за промовчанням.

Приклад

Примітка.

У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.

У цьому прикладі функцію VarType використано для визначення підтипу змінної.

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.