Vráti an Integer označujúci podtyp premennej.
Syntax
VarType(varname)
Povinný varname argument je akýkoľvek Variant premenný okrem používateľom definovaného typu.
Vrátené hodnoty
| Konštanta | Hodnota | Popis |
|---|---|---|
vbEmpty |
0 | Prázdne (neinicializované) |
vbNull |
1 | Null (žiadne platné údaje) |
vbInteger |
2 | Integer |
vbLong |
3 | Číslo typu Long Integer |
vbSingle |
4 | Číslo s pohyblivou desatinnou čiarkou s jednoduchou presnosťou |
vbDouble |
5 | Číslo s pohyblivou desatinnou čiarkou s dvojitou presnosťou |
vbCurrency |
6 | Hodnota meny |
vbDate |
7 | Hodnota dátumu |
vbString |
8 | Reťazec |
vbObject |
9 | Objekt |
vbError |
10 | Chybová hodnota |
vbBoolean |
11 | Hodnota typu Boolean |
vbVariant |
12 |
Variant (používa sa iba s poľami variantov) |
vbDataObject |
13 | Objekt prístupu k údajom |
vbDecimal |
14 | Hodnota desatinného čísla |
vbByte |
17 | Bajtová hodnota |
vbUserDefinedType |
36 | Varianty, ktoré obsahujú používateľom definované typy |
vbArray |
8192 | Pole |
Poznámka
Tieto konštanty sú definované v programe Visual Basic for Applications (VBA). Namiesto skutočných hodnôt môžete kdekoľvek v kóde použiť mená.
Poznámky:
Funkcia VarType sama o sebe nikdy nevráti hodnotu vbArray . Vždy pridá danú hodnotu k inej hodnote na označenie poľa určitého typu.
Konštanta vbVariant sa vráti iba s vbArray s cieľom označiť, že argument to VarType je pole Variant hodnôt. Napríklad hodnota, ktorá sa vráti pre pole celých čísel, je vbInteger + vbArray, alebo 8194.
Ak má objekt predvolenú vlastnosť, VarType(object) vráti typ predvolenej vlastnosti objektu.
Príklad
Poznámka
Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V tomto príklade je funkcia VarType použitá na určenie podtypu premennej.
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.