Pateikia an, Integer nurodantį kintamojo potipį.
Sintaksė
VarType(varname)
Būtinas varname argumentas yra a Variant , kuriame yra bet kuris kintamasis, išskyrus vartotojo apibrėžtą tipą.
Pateikiamos reikšmės
| Konstanta | Reikšmė | Aprašymas |
|---|---|---|
vbEmpty |
0 | Tuščias (neinicijuotas) |
vbNull |
1 | Neapibrėžta reikšmė (nėra galiojančių duomenų) |
vbInteger |
2 | Sveikasis skaičius |
vbLong |
3 | Ilgasis sveikasis skaičius |
vbSingle |
4 | Vieno tikslumo slankiojo kablelio skaičius |
vbDouble |
5 | Dvigubo tikslumo slankiojo kablelio skaičius |
vbCurrency |
6 | Valiutos vertė |
vbDate |
7 | Datos reikšmė |
vbString |
8 | Eilutė |
vbObject |
9 | Object |
vbError |
10 | Klaidos reikšmė |
vbBoolean |
11 | Bulio logikos reikšmė |
vbVariant |
12 |
Variant (naudojama tik su variantų masyvais) |
vbDataObject |
13 | Duomenų prieigos objektas |
vbDecimal |
14 | Dešimtainė reikšmė |
vbByte |
17 | Baitų reikšmė |
vbUserDefinedType |
36 | Variantai, kuriuose yra vartotojo apibrėžti tipai |
vbArray |
8192 | Masyvas |
Pastaba
Šias konstantas apibrėžia "Visual Basic for Applications" (VBA). Vietoj faktinių verčių galite naudoti šiuos pavadinimus bet kurioje kodo vietoje.
Pastabos
Funkcija VarType niekada negrąžina pačios reikšmės vbArray . Ji visada prideda tą reikšmę prie kitos reikšmės, kad nurodytų konkretaus tipo masyvą.
Konstanta vbVariant grąžinama tik su vbArray nurodant, kad argumentas to VarType yra reikšmių masyvas Variant . Pavyzdžiui, grąžinama sveikųjų skaičių masyvo reikšmė yra vbInteger + vbArray, arba 8194.
Jei objektas turi numatytąją ypatybę, VarType(object) pateikia objekto numatytosios ypatybės tipą.
Pavyzdys
Pastaba
Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje funkcija naudojama VarType kintamojo potipiui nustatyti.
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.