Vrátí celé číslo označující podtyp proměnné.
Syntaxe
VarType(varname)
Požadovaný argument varnameje variant obsahující libovolnou proměnnou kromě proměnné uživatelem definovaného typu.
Návratové hodnoty
| Konstantní | 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 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 jazyk Visual Basic for Application. 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(objekt) 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 = 459
StrVar = "Hello World"
DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' Returns 2.
MyCheck = VarType(DateVar) ' Returns 7.
MyCheck = VarType(StrVar) ' Returns 8.