TypeName Function; VarType Function
Returns a string (рдкреНрд░рдХрд╛рд░ рдирд╛рдо) рд╡рд╛ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рди(VarType) рдЬрд╕рд▓реЗ рдЪрд▓рдХрд╛ рд▓рд╛рдЧрд┐ рд╕реВрдЪрдирд╛ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
TypeName (Variable) / VarType (Variable)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рд╕реНрдЯреНрд░рд┐рдЩ; рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдЪрд▓: рдЪрд▓ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБрд▓реЗ рдкреНрд░рдХрд╛рд░рдорд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рддрдкрд╛рдИрдБ рджрд┐рдПрдХреЛ рдорд╛рдирд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ:
рдХреБрдЮреНрдЬреА рд╢рдмреНрдж |
Named constant |
рдЪрд▓ рдкреНрд░рдХрд╛рд░ |
рдЪрд▓ рдкреНрд░рдХрд╛рд░ |
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) &_
рдкреНрд░рдХрд╛рд░ рдирд╛рдо(lVar) & " " & VarType(lVar),реж," рдЖрдзрд╛рд░рднреВрддLibreOfficeрдорд╛ рдХреЗрд╣реА рдкреНрд░рдХрд╛рд░рд╣рд░реВ"
End Sub