Returnerar en Integer som anger undertypen för en variabel.
Syntax
VarType(varname)
Det obligatoriska varname argumentet är en Variant som innehåller alla variabler utom en användardefinierad typ.
Returnera vä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
Dessa konstanter definieras av Visual Basic for Applications (VBA). Du kan använda namnen var som helst i koden i stället för de faktiska värdena.
Kommentarer
Funktionen VarType returnerar aldrig värdet för vbArray sig själv. Det adderar alltid det värdet till ett annat värde för att ange en matris av en viss typ.
Konstanten vbVariant returneras endast med för att ange att argumentet till VarType är en matris med vbArrayVariant värden. Värdet som returneras för en matris med heltal är vbInteger + vbArraytill exempel , eller 8194.
Om ett objekt har en standardegenskap VarType(object) returneras typen av 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 VarType här exemplet används funktionen 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.