TypeName Function; VarType Function
返回含有变量信息的字符串 (TypeName) 或数值 (VarType)。
语法：
TypeName (变量) / VarType (变量)
返回值：
字符串；整数
参数：
Variable：要确定类型的变量。可以使用以下值：
|
关键字 |
已命名常量 |
VarType |
变量类型 |
|
Boolean |
|
11 |
布尔变量 |
|
Date |
V_DATE |
7 |
日期变量 |
|
Currency |
V_CURRENCY |
6 |
货币变量 |
|
Double |
V_DOUBLE |
5 |
双浮点变量 |
|
Integer |
V_INTEGER |
2 |
整数变量 |
|
Long |
V_LONG |
3 |
长整数变量 |
|
Object |
|
9 |
对象变量 |
|
Single |
V_SINGLE |
4 |
单浮点变量 |
|
String |
V_STRING |
8 |
字符串变量 |
|
Variant |
|
12 |
变体变量（可以含有由定义指定的所有类型） |
|
Empty |
V_EMPTY |
0 |
变量未初始化 |
|
Null |
V_NULL |
1 |
无有效数据 |
示例：
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,"LibreOffice Basic 中的一些类型"
End Sub