Vraća ceo broj koji ukazuje na podtip promenljiva.
Sintaksa
VarType ( promenljiva )
Potrebno ime promenljiveargument je Varijanta koja sadrži bilo koju promenljivu osim promenljive korisnički definisanog tipa.
Povratne vrednosti
Konstanta |
Vrednost |
Opis |
vbEmpty |
0 |
Prazan (nepokrenuto) |
vbNull |
1 |
Bez vrednosti (nema važećih podataka) |
vbInteger |
2 |
Ceo broj |
vbLong |
3 |
Dugački ceo broj |
vbSingle |
4 |
Broj sa pokretnim zarezom sa jednom preciznošćom |
vbDouble |
5 |
Broj sa pokretnim zarezom sa dvostrukom preciznoćom |
vbCurrency |
6 |
Vrednost valute |
vbDate |
7 |
Vrednost datuma |
vbString |
8 |
String |
vbObject |
9 |
Object |
vbGreška |
10 |
Grešku |
vbBoolean |
11 |
Bulova vrednost |
vbVariant |
12 |
Varijanta (koristi se samo sa nizovima varijanti) |
vbDataObject |
13 |
Objekat za pristup podacima |
vbDecimal |
14 |
Decimalna vrednost |
vbByte |
17 |
Vrednost bajta |
vbUserDefinedType |
36 |
Varijante koje sadrže korisnički definisane tipove |
vbArray |
8192 |
Niz |
Napomena: Visual Basic za aplikacije navodi ove konstante. Imena se mogu koristiti bilo gde u kodu umesto stvarnih vrednosti.
Napomene
Funkcija VarType nikada sama ne vraća vrednost za vbArray . Uvek se dodaje u neku drugu vrednost da bi se ukazalo na niz određenog tipa. Konstanta vbVariant se vraća samo zajedno sa funkcijom vbArray kako bi ukazala na to da je argument funkcije VarType niz tipa Varijanta. Na primer, dobijena vrednost za niz celih brojeva izračunava se kao vbInteger + vbArray ili 8194. Ako objekat ima podrazumevani svojstvo, Funkcija VarType(objekat) vraća tip podrazumevanog svojstva objekta.
Primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju VarType za određivanje podtipova promenljive.
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.