Funktsioon tagastab muutuja alamtüüpi tähistava andmetüübi Täisarv.
Süntaks
VarType ( muutuja nimi )
Nõutav muutuja nimeargument argument on andmetüüp Variant, mis võib sisaldada suvalist muutujat (v.a kasutaja määratletud tüüp muutujat).
Tagastusväärtused
|
Konstant |
Väärtus |
Kirjeldus |
|
vbEmpty |
0 |
tühi(lähtestamata) |
|
vbNull |
1 |
Tühi (kehtivad andmed puuduvad) |
|
vbInteger |
2 |
Täisarv |
|
vbLong |
3 |
Pikk täisarv |
|
vbSingle |
4 |
Ühese täpsusega ujukomaarv |
|
vbDouble |
5 |
Kahese täpsusega ujukomaarv |
|
vbCurrency |
6 |
Valuutaväärtus |
|
vbDate |
7 |
Kuupäevaväärtus |
|
vbString |
8 |
String |
|
vbObject |
9 |
Objekt |
|
vbError |
10 |
Veaväärtus |
|
vbBoolean |
11 |
Kahendväärtus |
|
vbVariant |
12 |
Variant (kasutatakse ainult variantide massiivi puhul) |
|
vbDataObject |
13 |
Andmepääsuobjekt |
|
vbDecimal |
14 |
Kümnendväärtus |
|
vbByte |
17 |
Baidiväärtus |
|
vbUserDefinedType |
36 |
Kasutaja määratletud tüüpe sisaldavad variandid |
|
vbArray |
8192 |
Massiiv |
Märkus.: Need konstandid määrab Visual Basic for Applications. Neid nimetusi saab koodis kasutada tegelike väärtuste asemel.
Kommentaarid
Funktsioon VarType ei tagasta kunagi iseenesest vbArray väärtust. Kindlat tüüpi massiivi tähistamiseks lisatakse see alati mõnele muule väärtusele. Konstant vbVariant tagastatakse ainult koos funktsiooniga vbArray , mis näitab, et funktsiooni VarType argument on massiiv, mille tüüp on Variant. Näiteks täisarvude massiivi tagastatud väärtuse arvutamiseks kasutatakse valemit vbInteger + vbArray või 8194. Kui objektil on vaike- atribuut tagastab funktsioon VarType(objekt) objekti vaikeatribuudi tüübi.
Näide
Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Järgmises näites kasutatakse funktsiooni VarType muutuja alamtüübi määratlemiseks.
Dim IntVar, StrVar, DateVar, MyCheck
' Initialize variables.
IntVar = 459
StrVar = "Hello World"
DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' Returns 2.
MyCheck = VarType(DateVar) ' Returns 7.
MyCheck = VarType(StrVar) ' Returns 8.
