TypeName Function; VarType Function
āĻ¸ā§āĻā§āĻ°āĻŋāĻ (TypeName) āĻ āĻĨāĻŦāĻž āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻŽāĻžāĻ¨ (VarType) āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§ āĻ¯āĻž āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ā§āĻ° āĻāĻ¨ā§āĻ¯ āĻ¤āĻĨā§āĻ¯ āĻ§āĻžāĻ°āĻŖ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
TypeName (Variable) / VarType (Variable)
āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:
String; Intege
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛:āĻāĻĒāĻ¨āĻŋ āĻ¯ā§ āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ā§āĻ° āĻāĻžāĻāĻĒ āĻāĻžāĻ¨āĻ¤ā§ āĻāĻžāĻ¨āĨ¤ āĻāĻĒāĻ¨āĻŋ āĻ¨āĻŋāĻā§āĻ° āĻŽāĻžāĻ¨āĻ¸āĻŽā§āĻšāĻ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĻ¨:
|
āĻā§āĻā§āĻžāĻ°ā§āĻĄ |
Named constant |
VarType |
āĻāĻ˛āĻ āĻāĻžāĻāĻĒ |
|
Boolean |
|
11 |
āĻŦā§āĻ˛āĻŋāĻ¯āĻŧāĻžāĻ¨ āĻāĻ˛āĻ |
|
Date |
V_DATE |
7 |
āĻ¤āĻžāĻ°āĻŋāĻ āĻāĻ˛āĻ |
|
Currency |
V_CURRENCY |
6 |
Currency variable |
|
Double |
V_DOUBLE |
5 |
āĻĄāĻžāĻŦāĻ˛ āĻĻāĻļāĻŽāĻŋāĻ āĻŦāĻŋāĻ¨ā§āĻĻā§ āĻāĻ˛āĻ |
|
Integer |
V_INTEGER |
2 |
āĻāĻ¨āĻāĻŋāĻāĻžāĻ° āĻāĻ˛āĻ |
|
Long |
V_LONG |
3 |
āĻĻā§āĻ°ā§āĻ āĻāĻ¨āĻāĻŋāĻāĻžāĻ° āĻāĻ˛āĻ |
|
Object |
|
9 |
āĻŦāĻ¸ā§āĻ¤ā§ āĻāĻ˛āĻ |
|
Single |
V_SINGLE |
4 |
Single floating-point variable |
|
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,"Some types in $[officename] Basic"
End Sub