Pateikia sveikąjį skaičių, nurodantį kintamasis potipį.
Sintaksė
VarType ( varname )
Būtinas varnameargumentas yra variantas, kuriame yra kintamasis, išskyrus vartotojo apibrėžto tipo kintamąjį.
Grąžinamos reikšmės
|
Konstanta |
Reikšmė |
Aprašas |
|
vbEmpty |
0 |
tuščias (neinicijuotas) |
|
vbNull |
1 |
NULL (nėra tinkamų duomenų) |
|
vbInteger |
2 |
Sveikasis skaičius |
|
vbLong |
3 |
Ilgasis sveikasis skaičius |
|
vbSingle |
4 |
Viengubo tikslumo slankiojo kablelio skaičius |
|
vbDouble |
5 |
Dvigubo tikslumo slankiojo kablelio skaičius |
|
vbCurrency |
6 |
Valiutos reikšmė |
|
vbDate |
7 |
Datos reikšmė |
|
vbString |
8 |
Eilutė |
|
"vbObject" |
9 |
Object |
|
vbError |
10 |
Klaidos reikšmė |
|
vbBoolean |
11 |
Bulio logikos reikšmė |
|
vbVariant |
12 |
Variantas (naudojamas 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 nurodo "Visual Basic for Applications". Vardus galima naudoti bet kurioje kodo vietoje, vietoje faktinių reikšmių.
Pastabos
Funkcija VarType niekada negrąžina vbarray reikšmės. Ji visada įtraukiama į kitą reikšmę, kad būtų rodomas tam tikro tipo masyvas. Konstanta Vbvariant grąžinama tik kartu su " vbarray ", kad būtų rodoma, jog funkcijos VarType argumentas yra Varianttipo masyvas. Pavyzdžiui, reikšmė, pateikta kaip sveikieji skaičiai, apskaičiuojama kaip Vbinteger + vbarrayarba 8194. Jei objektas turi numatytąjį ypatybė, VarType(objektas) grąžina 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 VarType naudojama kintamojo tipui 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.
