Returnerer en Integer som angir undertypen for en variabel.
Syntaks
VarType(varname)
Det obligatoriske varname argumentet er et Variant som inneholder alle variabler unntatt en brukerdefinert type.
Returverdier
| Konstant | Verdi | Beskrivelse |
|---|---|---|
vbEmpty |
0 | Tom (ikke initialisert) |
vbNull |
1 | Null (ingen gyldige data) |
vbInteger |
2 | Heltall |
vbLong |
3 | Langt heltall |
vbSingle |
4 | Flyttall med enkel presisjon |
vbDouble |
5 | Flyttall med dobbel presisjon |
vbCurrency |
6 | Valutaverdi |
vbDate |
7 | Datoverdi |
vbString |
8 | Streng |
vbObject |
9 | Objekt |
vbError |
10 | Feilverdi |
vbBoolean |
11 | Boolsk verdi |
vbVariant |
12 |
Variant (brukes bare med matriser med varianter) |
vbDataObject |
13 | Et datatilgangsobjekt |
vbDecimal |
14 | Desimalverdi |
vbByte |
17 | Byteverdi |
vbUserDefinedType |
36 | Varianter som inneholder brukerdefinerte typer |
vbArray |
8192 | Matrise |
Obs!
Disse konstantene defineres av Visual Basic for Applications (VBA). Du kan bruke navnene hvor som helst i koden i stedet for de faktiske verdiene.
Merknader
Funksjonen VarType returnerer aldri verdien for vbArray seg selv. Den legger alltid til den verdien i en annen verdi for å indikere en matrise av en bestemt type.
Konstanten vbVariant returneres bare med vbArray for å angi at argumentet er VarType en matrise med Variant verdier. Verdien som returneres for en matrise med heltall, er vbInteger + vbArrayfor eksempel , eller 8194.
Hvis et objekt har en standardegenskap, VarType(object) returneres typen for objektets standardegenskap.
Eksempel
Obs!
I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker VarType funksjonen til å 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.