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.
