TypeName Function; VarType Function

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

Syntax:


TypeName (Variable) / VarType (Variable)

Return value:

String; Integer

Parameters:

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

Keyword

Named constant

VarType

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

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 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

Example:


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),реж," рдЖрдзрд╛рд░рднреВрддLibreOfficeDevрдорд╛ рдХреЗрд╣реА рдкреНрд░рдХрд╛рд░рд╣рд░реВ"
End Sub