Returnează un Integer care indică subtipul unei variabile.
Sintaxă
VarType(varname)
Argumentul obligatoriu varname este Variant unul care conține orice variabilă, cu excepția tipului definit de utilizator.
Valorile returnate
| Constantă | Value | Descriere |
|---|---|---|
vbEmpty |
0 | Gol (neinițializat) |
vbNull |
1 | Nul (fără date valide) |
vbInteger |
2 | Întreg |
vbLong |
3 | Întreg lung |
vbSingle |
4 | Număr în virgulă flotantă și precizie simplă |
vbDouble |
5 | Număr în virgulă flotantă cu dublă precizie |
vbCurrency |
6 | Valoare monedă |
vbDate |
7 | Valoare dată |
vbString |
8 | String |
vbObject |
9 | Object |
vbError |
10 | Valoare de eroare |
vbBoolean |
11 | Valoare booleană |
vbVariant |
12 |
Variant (utilizat numai cu matrice de variante) |
vbDataObject |
13 | Un obiect de acces la date |
vbDecimal |
14 | Valoare zecimală |
vbByte |
17 | Valoare octet |
vbUserDefinedType |
36 | Variante care conțin tipuri definite de utilizator |
vbArray |
8192 | Matrice |
Notă
Aceste constante sunt definite de Visual Basic for Applications (VBA). Puteți utiliza numele oriunde în cod în locul valorilor efective.
Observații
Funcția VarType nu returnează niciodată valoarea pentru vbArray ea însăși. Întotdeauna adaugă acea valoare la o altă valoare pentru a indica o matrice de un anumit tip.
Constanta vbVariant este returnată doar cu vbArray pentru a indica faptul că argumentul este VarType o matrice de Variant valori. De exemplu, valoarea returnată pentru o matrice de numere întregi este vbInteger + vbArray, sau 8194.
Dacă un obiect are o proprietate implicită, VarType(object) returnează tipul proprietății implicite a obiectului.
Exemplu
Notă
Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează VarType funcția pentru a determina subtipul unei variabile.
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.