Vraća an Integer koji označava podvrstu varijable.
Sintaksa
VarType(varname)
Obavezni varname je argument koji Variant sadrži bilo koju varijablu osim korisnički definirane vrste.
Vraćene vrijednosti
| Konstanta | Vrijednost | Opis |
|---|---|---|
vbEmpty |
0 | Prazno (neinicijalizirano) |
vbNull |
1 | Null (nema valjanih podataka) |
vbInteger |
2 | Cijeli broj |
vbLong |
3 | Dugi cijeli broj |
vbSingle |
4 | Broj s pomičnim zarezom jednostruke preciznosti |
vbDouble |
5 | Broj s pomičnim zarezom dvostruke preciznosti |
vbCurrency |
6 | Vrijednost valute |
vbDate |
7 | Vrijednost datuma |
vbString |
8 | String |
vbObject |
9 | Object |
vbError |
10 | Pogreška |
vbBoolean |
11 | Booleova vrijednost |
vbVariant |
12 |
Variant (koristi se samo s poljima varijanti) |
vbDataObject |
13 | Objekt za pristup podacima |
vbDecimal |
14 | Decimalna vrijednost |
vbByte |
17 | Vrijednost bajta |
vbUserDefinedType |
36 | Varijante koje sadrže korisnički definirane vrste |
vbArray |
8192 | Polje |
Napomena
Te konstante definira Visual Basic for Applications (VBA). Nazive možete koristiti u bilo kojem dijelu koda umjesto stvarnih vrijednosti.
Napomene
Funkcija VarType nikad ne vraća vrijednost za vbArray sebe. Uvijek tu vrijednost dodaje drugoj vrijednosti da bi označio polje određene vrste.
Konstanta vbVariant se vraća samo s da vbArray bi se naznačilo da je argument to VarType polje Variant vrijednosti. Na primjer, vrijednost koja se vraća za polje cijelih brojeva je vbInteger + vbArray, ili 8194.
Ako objekt ima zadano svojstvo, VarType(object) vraća vrstu zadanog svojstva objekta.
Primjer
Napomena
Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U primjeru se VarType funkcija koristi za određivanje podvrste varijable.
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.