TypeName Function; VarType Function

āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ (TypeName) āĻ…āĻĨāĻŦāĻž āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻŽāĻžāύ (VarType) āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ āϝāĻž āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ⧇āϰ āϜāĻ¨ā§āϝ āϤāĻĨā§āϝ āϧāĻžāϰāĻŖ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

TypeName (Variable) / VarType (Variable)

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

String; Intege

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ:āφāĻĒāύāĻŋ āϝ⧇ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ⧇āϰ āϟāĻžāχāĻĒ āϜāĻžāύāϤ⧇ āϚāĻžāύāĨ¤ āφāĻĒāύāĻŋ āύāĻŋāĻšā§‡āϰ āĻŽāĻžāύāϏāĻŽā§‚āĻšāĻ“ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇āύ:

āϕ⧀āĻ“ā§ŸāĻžāĻ°ā§āĻĄ

Named constant

VarType

āϚāϞāĻ• āϟāĻžāχāĻĒ

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

Single floating-point variable

String

V_STRING

8

āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ āϚāϞāĻ•

Variant

12

āĻ­ā§āϝāĻžāϰāĻŋāϝāĻŧ⧇āĻ¨ā§āϟ āϚāϞāĻ• (āĻŦāĻ°ā§āĻŖāύāĻžā§Ÿ āωāĻ˛ā§āϞāĻŋāĻ–āĻŋāϤ āϏāĻŦ āϟāĻžāχāĻĒ āϧāĻžāϰāĻŖ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇)

Empty

V_EMPTY

0

āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ⧇āϰ āĻ•āĻžāϜ āφāϰāĻŽā§āĻ­ āĻ•āϰāĻž āĻšā§Ÿ āύāĻŋ

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