TypeName Function; VarType Function

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

Syntax:


TypeName (Variable) / VarType (Variable)

Return value:

String; Intege

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

Single floating-point variable

String

V_STRING

8

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

Variant

12

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

Empty

V_EMPTY

0

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

Null

V_NULL

1

āϕ⧋āύ āĻ•āĻžāĻ°ā§āϝāĻ•āϰ āĻĄāĻžāϟāĻž āύ⧇āχ


Error codes:

5 Invalid procedure call

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) &_
 TypeName(lVar) & " " & VarType(lVar),0,"Some types in LibreOffice Basic"
End Sub

Please support us!