Vrátí Integer hodnotu, která označuje podtyp proměnné.
Syntaxe
VarType(varname)
Povinným varname argumentem je hodnota Variant , která obsahuje libovolnou proměnnou kromě uživatelem definovaného typu.
Vrácené hodnoty
| Konstanta | Hodnota | Popis |
|---|---|---|
vbEmpty |
0 | Prázdné (neinicializované) |
vbNull |
1 | Null (žádná platná data) |
vbInteger |
2 | Celé číslo |
vbLong |
3 | Dlouhé celé číslo |
vbSingle |
4 | Číslo s jednoduchou přesností a plovoucí desetinnou čárkou |
vbDouble |
5 | Číslo s dvojitou přesností a plovoucí desetinnou čárkou |
vbCurrency |
6 | Hodnota měny |
vbDate |
7 | Hodnota kalendářního data |
vbString |
8 | Funkce String |
vbObject |
9 | Objekt |
vbError |
10 | Chybová hodnota |
vbBoolean |
11 | Booleovská hodnota |
vbVariant |
12 |
Variant (používá se pouze s poli variant) |
vbDataObject |
13 | Objekt pro přístup k datům |
vbDecimal |
14 | Desetinná hodnota |
vbByte |
17 | Hodnota bajtů |
vbUserDefinedType |
36 | Varianty obsahující uživatelem definované typy |
vbArray |
8192 | Pole |
Poznámka
Tyto konstanty jsou definované jazykem VBA (jazyk Visual Basic for Application). Názvy můžete kdekoli v kódu použít místo samotných hodnot.
Poznámky
Funkce VarType nikdy nevrátí hodnotu sama o vbArray sobě. Vždy tuto hodnotu přidá k jiné hodnotě, aby označil pole určitého typu.
Konstanta vbVariant je vrácena pouze k vbArray označení, že argument to VarType je matice Variant hodnot. Například vrácená hodnota pro matici celých čísel je vbInteger + vbArray, nebo 8194.
Pokud objekt obsahuje výchozí vlastnost, VarType(object) vrátí typ výchozí vlastnosti objektu.
Příklad
Poznámka
Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
V tomto příkladu se funkce VarType používá k určení podtypu proměnné.
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.