Devolve um Integer que indica o subtipo de uma variável.
Sintaxe
VarType(varname)
O argumento necessário varname é um Variant que contém qualquer variável, exceto um tipo definido pelo utilizador.
Valores devolvidos
| Constante | Valor | Descrição |
|---|---|---|
vbEmpty |
0 | Vazio (não inicializado) |
vbNull |
1 | Nulo (sem dados válidos) |
vbInteger |
2 | Inteiro |
vbLong |
3 | Número inteiro longo |
vbSingle |
4 | Número de vírgula flutuante de precisão única |
vbDouble |
5 | Número de vírgula flutuante de precisão dupla |
vbCurrency |
6 | Valor de moeda |
vbDate |
7 | Valor da data |
vbString |
8 | Cadeia |
vbObject |
9 | Objeto |
vbError |
10 | Valor de erro |
vbBoolean |
11 | Valor booleano |
vbVariant |
12 |
Variant (utilizado apenas com matrizes de variantes) |
vbDataObject |
13 | Um objeto de acesso a dados |
vbDecimal |
14 | Valor decimal |
vbByte |
17 | Valor de byte |
vbUserDefinedType |
36 | Variantes que contêm tipos definidos pelo utilizador |
vbArray |
8192 | Matriz |
Nota
Estas constantes são definidas por Visual Basic for Applications (VBA). Pode utilizar os nomes em qualquer parte do seu código em vez dos valores reais.
Comentários
A VarType função nunca devolve o valor por vbArray si só. Adiciona sempre esse valor a outro valor para indicar uma matriz de um tipo específico.
A vbVariant constante é devolvida apenas com vbArray para indicar que o argumento para VarType é uma matriz de Variant valores. Por exemplo, o valor devolvido para uma matriz de números inteiros é vbInteger + vbArray, ou 8194.
Se um objeto tiver uma propriedade predefinida, VarType(object) devolve o tipo de propriedade predefinida do objeto.
Exemplo
Nota
Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo utiliza a VarType função para determinar o subtipo de uma variável.
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.