Devolve um Número Inteiro que indica o subtipo de um variável.
Sintaxe
VarType ( varname )
O varname necessárioargumento é uma Variante que contém qualquer variável, exceto uma variável de 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 |
Variante (utilizada 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 especificadas pelo Visual Basic for Applications. Os nomes podem ser utilizados em qualquer parte do seu código em vez dos valores reais.
Observações
A função VarType nunca devolve o valor para vbArray por si só. É sempre adicionado a outro valor para indicar uma matriz de um tipo específico. O vbVariant constante só é devolvido em conjunto com vbArray para indicar que o argumento para a função VarType é uma matriz do tipo Variante. Por exemplo, o valor devolvido para uma matriz de números inteiros é calculado como vbInteger + vbArray ou 8194. Se um objeto tiver uma propriedade predefinida, VarType(objeto) 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 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.