TypeName Function; VarType Function

Возвращает строку (TypeName) или числовое значение (VarType), которое содержит сведения о переменной.

Синтаксис


TypeName (Variable) / VarType (Variable)

Возвращаемое значение:

String; Integer

Параметры:

Переменная. Переменная, для которой необходимо определить тип. Возможны следующие значения:

Ключевое слово	Named constant	VarType	Тип переменной
Boolean		11	Логическая переменная
Date	V_DATE	7	Переменная типа Date
Currency	V_CURRENCY	6	Currency variable
Double	V_DOUBLE	5	Переменная с плавающей запятой с двойной точностью
Integer	V_INTEGER	2	Целая переменная
Long	V_LONG	3	Целая переменная типа Long
Object		9	Переменная типа Object
Single	V_SINGLE	4	Переменная с плавающей запятой с обычной точностью
String	V_STRING	8	Строковая переменная
Variant		12	Переменная типа Variant (может содержать все типы, указанные в определении)
Empty	V_EMPTY	0	Переменная не инициализирована
Null	V_NULL	1	Переменная не содержит допустимых данных

Error codes:

5 Неправильный вызов процедуры

Пример:


Sub ExampleType
Dim iVar As Integer
Dim sVar As String
Dim siVar As Single
Dim dVar As Double
Dim bVar As Boolean
Dim lVar As Long
Dim cVar as Currency
Dim tVar as Date
 MsgBox TypeName(iVar) & " " & VarType(iVar) & Chr(13) &_
 TypeName(sVar) & " " & VarType(sVar) & Chr(13) &_
 TypeName(siVar) & " " & VarType(siVar) & Chr(13) &_
 TypeName(dVar) & " " & VarType(dVar) & Chr(13) &_
 TypeName(bVar) & " " & VarType(bVar) & Chr(13) &_
 TypeName(cVar) & " " & VarType(cVar) & Chr(13) &_
 TypeName(tVar) & " " & VarType(tVar) & Chr(13) &_
 TypeName(lVar) & " " & VarType(lVar),0,"Некоторые типы в $[officename] Basic"
End Sub