5

Como verificar se um número é inteiro no VBA do Access?

Eu tentei

If Int(Me.Numero) Then
    Msgbox "É inteiro"
End If

Mas não funcionou.

Eu queria que se eu digitasse 8,5 ele retornasse "Não é inteiro".

O campo é Não Acoplado.

1
  • 1
    Descreva melhor o que é 'não funcionou', erro? resultado não esperado?
    – rray
    23/01/2014 às 17:00

3 Respostas 3

7

A função int( ) retorna a parte inteira do número. Por exemplo,

intNumber = Int(902.3)

faria com que a variável intNumber fosse igual a 902.

No seu caso, basta testar se o número é igual ao inteiro dele. Ou seja:

If Me.Numero = Int(Me.Numero) Then
    blablabla
Else
    bla2bla2bla2
End If
1
  • 1
    Porque não pensei nisso antes, valeu pessoal. 23/01/2014 às 17:37
1

Segundo esse link, para checar se o tipo da variavel é int/integer, use esse código

If TypeName(x) = "Integer" Then
0
0

Use a expressão abaixo, a função val retorna apenas a parte inteira do número, aí basta comparar o número usando a função contra ele mesmo:

if val([valor]) = [valor] then 
    msgbox "Inteiro"
else

end if

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .