TypeName Function; VarType Function

Returns a string (TypeName) or a numeric value (VarType) that contains information for a variable.

Бинтакса

TypeName (Variable) / VarType (Variable)

Π’Ρ€Π°Ρ‚ΠΈ врСдност:

Низа;Ρ†Π΅Π» Π±Ρ€ΠΎΡ˜

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ΠΈ:

Variable: The variable that you want to determine the type of. You can use the following values:

ΠšΠ»ΡƒΡ‡Π΅Π½ Π·Π±ΠΎΡ€

Named constant

VarΠ’ΠΈΠΏ

Π’ΠΈΠΏ ΠΏΡ€ΠΎΠΌΠ΅Π½Π»ΠΈΠ²Π°

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

Variant variable (can contain all types specified by the definition)

Empty

V_EMPTY

0

Variable is not initialized

Null

V_NULL

1

НС Π²Π°Π»ΠΈΠ΄Π΅Π½ ΠΏΠΎΠ΄Π°Ρ‚ΠΎΠΊ


Error codes:

5 Invalid procedure call

ΠŸΡ€ΠΈΠΌΠ΅Ρ€

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 LibreOffice Basic"

End Sub