Връща an Integer , който указва подтипа на променлива.
Синтаксис
VarType(varname)
Задължителният varname аргумент е a Variant , който съдържа всички променливи с изключение на дефиниран от потребителя тип.
Върнати стойности
| Константа | Стойност | Описание |
|---|---|---|
vbEmpty |
0 | Празен (неинициализиран) |
vbNull |
1 | Null (няма валидни данни) |
vbInteger |
2 | Цяло число |
vbLong |
3 | Long integer |
vbSingle |
4 | Число с единична точност с плаваща запетая |
vbDouble |
5 | Число с двойна точност с плаваща запетая |
vbCurrency |
6 | Стойност на валутата |
vbDate |
7 | Стойност на дата |
vbString |
8 | String |
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 никога не връща стойността за 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.