Vraća cijeli broj koji označava podvrstu varijabla.
Sintaksa
VarType ( varname )
Traženi naziv varnameargument vrijednost variant koja sadrži bilo koju varijablu osim varijable korisnički definirane vrste.
Vraćanje 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 s jednom preciznošću |
|
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 nizovima varijanti) |
|
vbDataObject |
13 |
Objekt pristupa 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 naveli su Visual Basic for Applications. Nazivi se mogu koristiti bilo gdje u kodu, a ne samo stvarnih vrijednosti.
Napomene
Funkcija VarType nikad ne vraća samu vrijednost za vbArray . Uvijek se dodaje na neku drugu vrijednost da bi se naznačila vrijednost polja određene vrste. Konstanta vbVariant vraća se samo u kombinaciji s funkcijom vbArray da bi se naznačilo da je argument funkcije VarType polje vrste Variant. Na primjer, vraćena vrijednost za polje cijelih brojeva izračunava se kao vbInteger + vbArray ili 8194. Ako objekt ima zadanu vrijednost svojstvo, VarType(objekt) 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 ovom se primjeru koristi funkcija VarType da bi se odredila podvrsta varijable.
Dim IntVar, StrVar, DateVar, MyCheck' Initialize variables.IntVar = 459StrVar = "Hello World"DateVar = #2/12/69# MyCheck = VarType(IntVar) ' Returns 2.MyCheck = VarType(DateVar) ' Returns 7.MyCheck = VarType(StrVar) ' Returns 8.
