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

Please support us!