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 $[officename] BASICus"
End Sub