Returnerer et Heltal, der angiver undertypen for en variabel.
Syntaks
VarType ( varname )
Den påkrævede variansnavnargument er en variant, der indeholder en variabel undtagen en variabel af en brugerdefineret type.
Returværdier
Konstant |
Værdi |
Beskrivelse |
vbEmpty |
0 |
Tom (ikke-initialiseret) |
vbNull |
1 |
Null (ingen gyldige data) |
vbInteger |
2 |
Heltal |
vbLong |
3 |
Langt heltal |
vbSingle |
4 |
Flydende tal med enkeltpræcision |
vbDouble |
5 |
Dobbeltpræcision med flydende tal |
vbValuta |
6 |
Valutaværdi |
vbDate |
7 |
Datoværdi |
vbString |
8 |
Streng |
vbObject |
9 |
Objekt |
vbError |
10 |
Fejlværdi |
vbBoolean |
11 |
Boolesk værdi |
vbVariant |
12 |
Variant (bruges kun med matrixer af varianter) |
vbDataObject |
13 |
Et dataadgangsobjekt |
vbDecimal |
14 |
Decimalværdi |
vbByte |
17 |
Byteværdi |
vbUserDefinedType |
36 |
Varianter, der indeholder brugerdefinerede typer |
vbArray |
8192 |
Matrix |
Bemærk!: Disse konstanter er angivet af Visual Basic for Applications. Navnene kan bruges overalt i din kode i stedet for de faktiske værdier.
Bemærkninger
Funktionen VarType returnerer aldrig værdien for vbArray alene. Den føjes altid til en anden værdi for at angive en matrix af en bestemt type. Konstanten vbVariant returneres kun sammen med vbArray for at angive, at argumentet til funktionen VarType er en matrix af typen Variant. Den værdi, der returneres for en matrix med heltal, beregnes f.eks. som vbInteger + vbArray eller 8194. Hvis et objekt har et standard- egenskab, returnerer VarType(objekt) typen af objektets standardegenskab.
Eksempel
Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges funktionen VarType til at bestemme undertypen for en variabel.
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.