Vraća cijeli broj koji označava podvrstu varijabla.
Sintaksa
VarType ( varnaziv )
Obavezno varnameargument varijanta je koja sadrži bilo koju varijablu osim varijable korisnika definirane vrste.
Povratne vrijednosti
Konstanta |
Vrijednost |
Opis |
vbEmpty |
0 |
Prazno (Neinicijalizirana) |
vbNull |
1 |
Null (bez valjanih podataka) |
vbInteger |
2 |
Cijeli broj |
vbLong |
3 |
Dugi cijeli broj |
vbSingle |
4 |
Broj s pomičnim zarezom jednostrukih preciznih točaka |
vbDouble |
5 |
Broj s pomičnim zarezom dvostruke preciznosti |
Valuta |
6 |
Vrijednost valute |
vbDate |
7 |
Vrijednost datuma |
u programu vbString |
8 |
String |
Vbojbject |
9 |
Object |
funkcija vbError |
10 |
Pogreška |
vbBoolean |
11 |
Booleova vrijednost |
vbVariant |
12 |
Variant (koristi se samo pomoću polja varijanti) |
vbDataObject |
13 |
Objekt za pristup podacima |
Vbdecimalni |
14 |
Decimalna vrijednost |
vbByte |
17 |
Vrijednost bajta |
vbUserDefinedType |
36 |
Varijante koje sadrže korisnički definirane vrste |
vbArray |
8192 |
Polje |
Napomena: Te su konstante navedene u programu Visual Basic for Applications. Nazivi se mogu koristiti bilo gdje u kodu umjesto stvarnih vrijednosti.
Napomene
Funkcija VarType nikada ne vraća vrijednost za vbarray sama po sebi. Uvijek se dodaje u neku drugu vrijednost da bi se naznačio polje određene vrste. Konstanta Vbvariant vraća se samo u kombinaciji s programom vbarray da bi se ukazala na to da je argument funkcija VarType polje vrste Variant. Na primjer, vrijednost koja se vraća za niz cijelih brojeva izračunava se kao Vbinteger + vbarrayili 8194. Ako objekt ima zadanu 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 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.