TypeName Function; VarType Function

Returns a string (рдкреНрд░рдХрд╛рд░ рдирд╛рдо) рд╡рд╛ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рди(VarType) рдЬрд╕рд▓реЗ рдЪрд▓рдХрд╛ рд▓рд╛рдЧрд┐ рд╕реВрдЪрдирд╛ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


TypeName (Variable) / VarType (Variable)

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рд╕реНрдЯреНрд░рд┐рдЩ; рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдЪрд▓: рдЪрд▓ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБрд▓реЗ рдкреНрд░рдХрд╛рд░рдорд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рддрдкрд╛рдИрдБ рджрд┐рдПрдХреЛ рдорд╛рдирд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ:

рдХреБрдЮреНрдЬреА рд╢рдмреНрдж

Named constant

рдЪрд▓ рдкреНрд░рдХрд╛рд░

рдЪрд▓ рдкреНрд░рдХрд╛рд░

Boolean

11

рдмреБрд▓рд┐рдпрди рдЪрд▓

Byte

17

Byte variable

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

рд╡реИрдз рдбреЗрдЯрд╛ рдЫреИрди


рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

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) &_
 рдкреНрд░рдХрд╛рд░ рдирд╛рдо(lVar) & " " & VarType(lVar),реж," рдЖрдзрд╛рд░рднреВрддLibreOfficeрдорд╛ рдХреЗрд╣реА рдкреНрд░рдХрд╛рд░рд╣рд░реВ"
End Sub

Please support us!