Pateikia sveikasis skaičius, nurodantis kintamasis potipį.
Sintaksė
VarType ( kintamojo pavadinimas)
Būtinas kintamojoargumentas yra variantas, kuriame yra bet koks kintamasis, išskyrus vartotojo apibrėžto tipo kintamąjį.
Pateikti reikšmes
|
Konstanta |
Reikšmė |
Aprašas |
|
vbEmpty |
0 |
tuščias (neinicijuota) |
|
vbNull |
1 |
Neapibrėžta reikšmė (nėra tinkamų 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 reikšmė |
|
vbDate |
7 |
Datos reikšmė |
|
vbString |
8 |
Eilutė |
|
vbObject |
9 |
Object |
|
vbKlaida |
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 |
Baito reikšmė |
|
vbUserDefinedType |
36 |
Variantai, kuriuose yra vartotojo apibrėžiamų tipų |
|
vbArray |
8192 |
Masyvas |
Pastaba: Šias konstantas nurodo "Visual Basic for Applications". Pavadinimus galima naudoti bet kurioje kodo vietoje faktinių reikšmių.
Pastabos
Funkcija VarType niekada negrąžina pačios vbArray reikšmės. Ji visada įtraukiama į kitą reikšmę, kad nurodytų konkretaus tipo masyvą. Konstanta vbVariant grąžinama tik kartu su vbArray , nurodanti, kad funkcijos VarType argumentas yra varianto tipo masyvas. Pvz., pateikta sveikojo skaičiaus masyvo reikšmė yra skaičiuojama kaip vbInteger + vbArray arba 8194. Jei objekto numatytoji 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 naudojama funkcija VarType , kad būtų galima nustatyti kintamojo potipį.
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.
