VarType (VarName)
Функция служит для определения кодового обозначения типа данных переменной или свойства объекта.
Возвращаемое значение: Возвращает значение типа Integer, указывающее подтип переменной.
Константа |
Значение |
Описание |
vbEmpty |
0 |
Значение Empty (не инициализированная переменная) |
vbNull |
1 |
Значение Null (действительные данные отсутствуют) |
vbInteger |
2 |
Значение типа Integer |
vbLong |
3 |
Значение типа Long integer |
vbSingle |
4 |
С плавающей точкой обычной точности |
vbDouble |
5 |
С плавающей точкой двойной точности |
vbCurrency |
6 |
Значение типа Currency |
vbDate |
7 |
Значение типа Date |
vbString |
8 |
Значение типа String |
vbObject |
9 |
Объект |
vbError |
10 |
Значение ошибки |
vbBoolean |
11 |
Значение типа Boolean |
vbVariant |
12 |
Значение типа Variant (используется только с массивами значений типа Variant) |
vbDataObject |
13 |
Объект доступа к данным |
vbDecimal |
14 |
Значение типа Decimal |
vbByte |
17 |
Значение типа Byte |
vbUserDefinedType |
36 |
Значения типа Variant, содержащие типы, определенные пользователем |
vbArray |
8192 |
Массив |
Примечания: Функция VarType никогда не возвращает значение vbArray само по себе. Эта константа всегда складывается с каким-либо другим значением, указывающим тип массива. Константа vbVariant возвращается только в сочетании с константой vbArray, чтобы показать, что в параметре функции VarType указан массив типа Variant. Например, значение возвращенное для массива целых чисел вычисляется как vbInteger + vbArray, или равняется 8194. Если объект имеет свойство, установленное по умолчанию, то функция VarType(Object) возвращает тип этого свойства объекта.
Параметры:
VarName - Обязательный параметр, являющий значением типа Variant, содержащим любую переменную
Пример:
' В данном примере функция VarType
' используется для проверки подтипа переменной
Dim IntVar, StrVar, DateVar, retval
' Инициализируем переменные
IntVar = 459 'число типа Integer
StrVar = "Русский_Проект" 'строка
DateVar = #7/27/66# 'дата
retval = VarType(IntVar)
Print retval
retval = VarType(DateVar)
Print retval
retval = VarType(StrVar)
Print retval
|