TypeName Function; VarType Function
འགྱུར་ཚད་ཆ་འཕྲིན་ཚུད་པའི་ཡིག་རྟགས་ཕྲེང་བའམ་ (TypeName) གྲངས་ཐང་དུ་ཕྱིར་ལོག་པ།(VarType)
བརྡ་འཕྲོད་
TypeName (Variable) / VarType (Variable)
ཕྱིར་ལོག་ཐང་
ཡིག་རྟགས་ཕྲེང་;ཧྲིལ་གྲངས་
ཁུགས་གྲངས་
Variable རིགས་ཀྱི་འགྱུར་ཚད་གཏན་འཁེལ་བྱེད། གཤམ་གསལ་ཐང་བེད་སྤྱོད་བྱས་ཆོག་
|
འགག་གནད་ཚིག་ |
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 |
ཡ་ལྡན་འཕྱོ་ཚེག་འགྱུར་ཚད་ |
|
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