Retorna um Inteiro indicando o subtipo de um variável.
Sintaxe
VarType ( varname )
O varname necessárioargumento é uma Variant que contém qualquer variável, exceto uma variável de um tipo definido pelo usuário.
Valores retornados
Constante |
Valor |
Descrição |
vbEmpty |
0 |
Vazio (não diferenciado) |
vbNull |
1 |
Nulo (sem dados válidos) |
vbInteger |
2 |
Inteiro |
vbLong |
3 |
Inteiro longo |
vbSingle |
4 |
Número de ponto flutuante de precisão única |
vbDouble |
5 |
Número de ponto flutuante de precisão dupla |
vbCurrency |
6 |
Valor da moeda |
vbDate |
7 |
Valor da data |
vbString |
8 |
Cadeia de caracteres |
vbObject |
9 |
Objeto |
vbError |
10 |
Valor de erro |
vbBoolean |
11 |
Valor booliano |
vbVariant |
12 |
Variant (usada apenas com matrizes de variantes) |
vbDataObject |
13 |
Um objeto de acesso a dados |
vbDecimal |
14 |
Valor decimal |
vbByte |
17 |
Valor byte |
vbUserDefinedType |
36 |
Variantes que contêm tipos definidos pelo usuário |
Vbarray |
8192 |
Matriz |
Observação: Essas constantes são especificadas por Visual Basic for Applications. Os nomes podem ser usados em qualquer lugar do código no lugar dos valores reais.
Comentários
A função VarType nunca retorna o valor para vbArray por si só. Ele é sempre adicionado a algum outro valor para indicar uma matriz de um tipo específico. O vbVariant constante só é retornado em conjunto com vbArray para indicar que o argumento para a função VarType é uma matriz do tipo Variant. Por exemplo, o valor retornado para uma matriz de inteiros é calculado como vbInteger + vbArray, ou 8194. Se um objeto tiver um propriedade padrão , VarType(object) retornará o tipo da propriedade padrão do objeto.
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função VarType 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.