TypeName Function; VarType Function

Tagastab muutuja teavet sisaldava stringi (TypeName) vÔi arvvÀÀrtuse (VarType).

SĂŒntaks:

TypeName (Variable) / VarType (Variable)

TagastusvÀÀrtus:

String; Integer

Parameetrid:

Variable: muutuja, mille tĂŒĂŒpi soovid mÀÀratleda. Kasutada vĂ”ib jĂ€rgmisi vÀÀrtusi:

vÔtmesÔna

Named constant

VarType

Muutujate tĂŒĂŒbid

Boolean

11

Loogiline muutuja

Date

V_DATE

7

KuupÀevamuutuja

Currency

V_CURRENCY

6

Currency variable

Double

V_DOUBLE

5

Topelt ujukomamuutuja

Integer

V_INTEGER

2

TĂ€isarvmuutuja

Long

V_LONG

3

Pikk tÀisarvmuutuja

Object

9

Objekt-muutuja

Single

V_SINGLE

4

Üksik ujukomamuutuja

String

V_STRING

8

String-muutuja

Variant

12

Variandi muutuja (vĂ”ib sisaldada kĂ”iki definitsioonis mÀÀratud tĂŒĂŒpe)

Empty

V_EMPTY

0

Muutuja pole algvÀÀrtustatud

Null

V_NULL

1

Kehtivaid andmeid pole


Error codes:

5 Vigane protseduuri vÀljakutse

NĂ€ide:

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,"MĂ”ned tĂŒĂŒbid LibreOffice BASICus"

End Sub