Повертає Integer an, що вказує на підтип змінної.
Синтаксис
VarType(varname)
Обов'язковим varname аргументом є аргумент, Variant який містить будь-яку змінну, крім типу, визначеного користувачем.
Значення, що повертаються
| Константа | Значення | Опис |
|---|---|---|
vbEmpty |
0 | Empty (uninitialized) |
vbNull |
1 | Null (немає дійсних даних) |
vbInteger |
2 | Ціле число |
vbLong |
3 | Довге ціле число |
vbSingle |
4 | Число з рухомою комою одинарної точності |
vbDouble |
5 | Число з подвійною точністю з рухомою комою |
vbCurrency |
6 | Вартість грошової одиниці |
vbDate |
7 | Значення дати |
vbString |
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 (VBA). Ви можете використовувати імена в будь-якому місці коду замість фактичних значень.
Примітки
Функція VarType ніколи не повертає значення for vbArray сама по собі. Він завжди додає це значення до іншого значення, щоб позначити масив певного типу.
Константа vbVariant повертається лише в vbArray тому випадку, якщо аргумент VarType є масивом Variant значень. Наприклад, значення, що повертається для масиву цілих чисел, має vbInteger + vbArrayвигляд , або 8194.
Якщо об'єкт має властивість за промовчанням, VarType(object) повертає тип властивості об'єкта за промовчанням.
Приклад
Примітка.
У прикладах нижче показано використання цієї функції в модулі 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.