Returnează un număr întreg indicând subtipul unui variabilă.
Sintaxă
VarType ( numevar )
argument de numevar necesar este o valoare Variant care conține orice variabilă, cu excepția unei variabile de tip definit de utilizator.
Valori returnate
Constantă |
Valoare |
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ă mobilă cu precizie simplă |
vbDouble |
5 |
Număr în virgulă mobilă cu dublă precizie |
vbCurrency |
6 |
Valoare monedă |
dată vb |
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 specificate de Visual Basic for Applications. Numele pot fi utilizate oriunde în codul dvs. în locul valorilor reale.
Observații
Funcția VarType nu returnează niciodată valoarea pentru vbArray singură. Acesta este întotdeauna adăugat la o altă valoare pentru a indica o matrice de un anumit tip. Constanta vbVariant este returnată doar împreună cu vbArray pentru a indica faptul că argumentul funcției VarType este o matrice de tip Variant. De exemplu, valoarea returnată pentru o matrice de numere întregi este calculată ca vbInteger + vbArray sau 8194. Dacă un obiect are un proprietate implicit, VarType(obiect) 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ă funcția VarType 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.