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.

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.