Daje tekst Integer koji označava podtip promenljive.
Sintaksa
VarType(varname)
Obavezni varname argument je koja sadrži bilo koju promenljivu Variant osim korisnički definisanog tipa.
Povratne vrednosti
| konstanta | Vrednost | Opis |
|---|---|---|
vbEmpty |
0 | Prazno (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 pojedinačne preciznosti |
vbDouble |
5 | Broj sa pokretnim zarezom dvostruke preciznosti |
vbCurrency |
6 | Vrednost valute |
vbDate |
7 | Vrednost datuma |
vbString |
8 | String |
vbObject |
9 | Object |
vbError |
10 | Grešku |
vbBoolean |
11 | Bulova vrednost |
vbVariant |
12 |
Variant (koristi se samo sa nizovima varijanti) |
vbDataObject |
13 | Objekat pristupa podacima |
vbDecimal |
14 | Decimalna vrednost |
vbByte |
17 | Vrednost bajta |
vbUserDefinedType |
36 | Varijante koje sadrže korisnički definisane tipove |
vbArray |
8192 | Niz |
Napomena
Ove konstante su definisane pomoću modula Visual Basic za aplikacije (VBA). Imena možete da koristite bilo gde u kodu umesto stvarnih vrednosti.
Napomene
Funkcija VarType nikada ne vraća vrednost za vbArray sebe. Uvek dodaje tu vrednost drugoj vrednosti da bi ukazao na niz određenog tipa.
Konstanta vbVariant se dobija samo da bi vbArray se ukazalo na to da je argument "za" VarType niz vrednosti Variant . Na primer, vrednost vraćena za niz celih brojeva je vbInteger + vbArray, ili 8194.
Ako objekat ima podrazumevano svojstvo, VarType(object) daje 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 podtipa 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.