Vrátí celé číslo označující podtyp Proměnná.
Syntaxe
VarType ( varname )
Požadovaný Argument varname je varianta obsahující libovolnou proměnnou kromě proměnné uživatelem definovaného typu.
Návratové hodnoty
|
Konstanta |
Value (Hodnota) |
Popis |
|
vbEmpty |
0 |
Stav Empty (neinicializované) |
|
vbNull |
1 |
Null (žádná platná data) |
|
vbInteger |
2 |
Celé číslo |
|
vbLong |
3 |
Dlouhé celé číslo |
|
vbSingle |
4 |
Číslo s plovoucí desetinou čárkou s jednou přesností |
|
vbDouble |
5 |
Číslo s plovoucí desetinou čárkou s dvojitou přesností |
|
vbCurrency |
6 |
Hodnota měny |
|
vbDate |
7 |
Hodnota data |
|
vbString |
8 |
Funkce String |
|
vbObject |
9 |
Objekt |
|
Chyba vb |
10 |
Chybová hodnota |
|
vbBoolean |
11 |
Logická hodnota |
|
vbVariant |
12 |
Varianta (používá se pouze s poli variant) |
|
objekt vbDataObject |
13 |
Objekt pro přístup k datům |
|
vbDecimal |
14 |
Desetinná hodnota |
|
vbByte |
17 |
Bajtová hodnota |
|
vbUserDefinedType |
36 |
Varianty obsahující uživatelem definované typy |
|
vbArray |
8192 |
Pole |
Poznámka: Tyto konstanty jsou určeny jazykem Visual Basic for Applications. Názvy se dají použít kdekoli v kódu místo skutečných hodnot.
Poznámky
Funkce VarType nikdy nevrací hodnotu pro vbArray sama o sobě. Vždy se přidá k nějaké jiné hodnotě, která označuje pole určitého typu. Konstanta vbVariant je vrácena pouze ve spojení s vbArray , která označuje, že argument funkce VarType je pole typu Variant. Například hodnota vrácená pro pole celých čísel se vypočítá jako vbInteger + vbArray nebo 8194. Pokud má objekt výchozí Vlastnost, vrátí VarType(object) 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.
Tento příklad používá funkci VarType k určení podtypu proměnné.
Dim IntVar, StrVar, DateVar, MyCheck' Initialize variables.IntVar = 459StrVar = "Hello World"DateVar = #2/12/69# MyCheck = VarType(IntVar) ' Returns 2.MyCheck = VarType(DateVar) ' Returns 7.MyCheck = VarType(StrVar) ' Returns 8.
