Връща стойност от тип Integer, указваща подтипа на променлива.
Синтаксис
VarType ( име на променлива )
Необходимиятаргумент име на променлива е Променлива, съдържаща всяка променлива, с изключение на променлива от дефиниран от потребителя тип.
Върнати стойности
Константа |
Value |
Описание |
vbEmpty |
0 |
Празен (неинициализиран) |
vbNull |
1 |
Null (няма валидни данни) |
vbInteger |
2 |
Цяло число |
vbLong |
3 |
Дълго цяло число |
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. Имената могат да се използват навсякъде в кода вместо действителните стойности.
Забележки
Функцията 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.