Tagastab väärtuse Integer , mis näitab muutuja alamtüüpi.
Süntaks
VarType(varname)
Nõutav varname argument on mis tahes muutuja, v.a Variant kasutaja määratletud tüüp.
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 massiividega) |
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ääratleb Visual Basic for Applications (VBA). Tegelike väärtuste asemel saate kasutada koodis suvalisi nimesid.
Kommentaarid
Funktsioon VarType ei tagasta kunagi iseenesest väärtust vbArray . See liidab selle väärtuse alati mõnele muule väärtusele, et näidata kindlat tüüpi massiivi.
vbVariant Konstant tagastatakse ainult vbArray nii, et see näitab, et argument, mille kohaselt VarType on tegemist väärtuste massiivigaVariant. Näiteks täisarvude massiivi tagastatav väärtus on vbInteger + vbArrayvõi 8194.
Kui objektil on vaikeatribuut, VarType(object) tagastab 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.
Selles näites VarType kasutatakse funktsiooni muutuja alamtüübi määramiseks.
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.