Vráti celé číslo určujúce podtyp premennej.
Syntax
VarType ( názovpremennej )
Povinný argument názovpremennejargument je variant obsahujúci akúkoľvek premennú okrem používateľom definovaného typu premennej.
Vrátené hodnoty
Konštanta |
Hodnota |
Popis |
vbEmpty |
0 |
prázdny (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ú zadané v jazyku Visual Basic for Applications. Názvy možno použiť kdekoľvek v kóde namiesto skutočných hodnôt.
Poznámky
Funkcia VarType nikdy nevráti hodnotu vbArray samostatne. Vždy sa pridá k inej hodnote na označenie poľa určitého typu. Konštanta vbVariant sa vráti len v spojení s vbArray, čo znamená, že argument pre funkciu VarType je pole typu Variant. Napríklad hodnota, ktorá sa vráti pre pole celých čísel, sa vypočítava ako vbInteger + vbArray alebo 8194. Ak má objekt predvolenú vlastnosť, funkcia VarType(objekt) 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.