Returnerar ett Heltal som anger undertypen för en variabel.
Syntax
VarType ( varname )
Det obligatoriska varname -argument är en variant som innehåller en variabel utom en variabel av en användardefinierad typ.
Returvärden
Konstant |
Värde |
Beskrivning |
vbEmpty |
0 |
Tom (oinitierad) |
vbNull |
1 |
Null (inga giltiga data) |
vbInteger |
2 |
Heltal |
vbLong |
3 |
Långt heltal |
vbSingle |
4 |
Flyttalsnummer med enkel precision |
vbDouble |
5 |
Flyttalsnummer med dubbel precision |
vbCurrency |
6 |
Valutavärde |
vbDate |
7 |
Datumvärde |
vbString |
8 |
Sträng |
vbObject |
9 |
Objekt |
vbError |
10 |
Ett felvärde |
vbBoolean |
11 |
Booleskt värde |
vbVariant |
1,2 |
Variant (används endast med matriser med varianter) |
vbDataObject |
1, 3 |
Ett dataåtkomstobjekt |
vbDecimal |
14 |
Decimalvärde |
vbByte |
17 |
Bytevärde |
vbUserDefinedType |
36 |
Varianter som innehåller användardefinierade typer |
vbArray |
8192 |
Matris |
Obs!: Konstanterna definieras av Visual Basic for Applications. Namnen kan användas var som helst i koden i stället för de faktiska värdena.
Kommentarer
Funktionen VarType returnerar aldrig värdet för vbArray ensamt. Den läggs alltid till i något annat värde för att ange en matris av en viss typ. Konstanten vbVariant returneras endast tillsammans med vbArray för att indikera att argumentet till funktionen VarType är en matris av typen Variant. Värdet som returneras för en matris med heltal beräknas till exempel som vbInteger + vbArray eller 8194. Om ett objekt har en standard- egenskap returnerar VarType(objekt) typen för objektets standardegenskap.
Exempel
Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används funktionen VarType för att fastställa undertypen för 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.