Restituisce un valore Integer che indica il sottotipo di una variabile.
Sintassi
VarType(varname)
L'argomento obbligatorio varname è un Variant che contiene qualsiasi variabile tranne un tipo definito dall'utente.
Valori restituiti
| Costante | valore | Descrizione |
|---|---|---|
vbEmpty |
0 | Vuoto (non inizializzato) |
vbNull |
1 | Null (dati non validi) |
vbInteger |
2 | Numero intero |
vbLong |
3 | Intero lungo |
vbSingle |
4 | Numero a virgola mobile a precisione singola |
vbDouble |
5 | Numero a virgola mobile a precisione doppia |
vbCurrency |
6 | Valore valuta |
vbDate |
7 | Valore di data |
vbString |
8 | String |
vbObject |
9 | Oggetto |
vbError |
10 | Un valore di errore |
vbBoolean |
11 | Valore booleano |
vbVariant |
12 |
Variant (usato solo con matrici di varianti) |
vbDataObject |
13 | Oggetto di accesso ai dati |
vbDecimal |
14 | Valore decimale |
vbByte |
17 | Valore byte |
vbUserDefinedType |
36 | Varianti che contengono tipi definiti dall'utente |
vbArray |
8192 | Matrice |
Nota
Queste costanti sono definite da Visual Basic, Applications Edition (VBA). È possibile usare i nomi in qualsiasi punto del codice invece dei valori effettivi.
Osservazioni
La VarType funzione non restituisce mai il valore per vbArray se stessa. Aggiunge sempre tale valore a un altro valore per indicare una matrice di un determinato tipo.
La vbVariant costante viene restituita solo con vbArray per indicare che l'argomento a VarType è una matrice di Variant valori. Ad esempio, il valore restituito per una matrice di numeri interi è vbInteger + vbArray, o 8194.
Se un oggetto ha una proprietà predefinita, VarType(object) restituisce il tipo della proprietà predefinita dell'oggetto.
Esempio
Nota
Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Questo esempio usa la VarType funzione per determinare il sottotipo di una 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.