Descobrir se um número tem casas decimais

Olá pessoal,

Fritei minha cabeça aqui e tentei criar uma função que avalia se uma sequência de números tem ou não números decimais, ou seja se é um número do conjunto dos Inteiros (não um integer do Access).

Fiz 3 funções, mas todas falharam dependendo o tamanho do número.



tentei pegar só a parte inteira do numero e comparar com ele mesmo tipo 100.21 - int 100.21 = 100, ou seja 100.21 é diferente de 100.

tentei achar a posição da vírgula, se não existisse é inteiro

tentei outras coisas que já nem lembro

Toda as tentativas falharam se utilizo número maiores tipo:

1000000000000000000000000
1000000000000000000000000.000000000000000001

Alguém tem alguma ideia?

Obrigado

Olá, seja bem vindo ao forum. Faça um teste, colocando na origem de um campo de verificação:

=SeImed([CampoDoNúmero]-Int([CampoDoNúmero])=0;"Inteiro";"Decimal")

Valeu amigo,

Primeiro de tudo preciso da função realmente pois vou usar aninhada com outras funções num módulo vba.

Segundo essa comparação vai falhar dependendo do valor.

Aperte ctlr+G ai e digite o seguinte, depois aperte enter

debug.Print iif((10000000000000000.1) -(Int(10000000000000000.1))=0,"Inteiro","Decimal")

debug.Print iif((1.00000000000000001) -(Int(1.00000000000000001))=0,"Inteiro","Decimal")

Vai dizer que é Inteiro nos dois casos.

Quero uma função que não importe o valor seja muito grande, ou o decimal seja numa casa la atrás.

Aguardo.

Obrigado

Ola

As funções do access trabalham com até 16 digitos. Deste valor pra cima ou aparece como notação cientifica ou são ignorados

veja que:

3.000000000000001 - 3 = 8,88178419700125E-16
3.0000000000000001 - 3 = 0 'porque o resultado ultrapassou aos 16 digitos

Isso esta me parecendo mais um exercício pra casa de algum curso que esta fazendo (risos).

nenhum cálculo do Access irá fornecer como resultado valores maiores que 16 digitos. Exemplo de uma dizima:

1/3 = 0,333333333333333

Portanto não há com o que se preocupar com os números esdrúxulos apresentados.

Se vc está vivenciando um caso real, apresente um BD exemplo para ser analisado.

Sucesso!

Grande Avelino,

Valew pela resposta.

Porém errasse feio, não faço nenhum curso não. Estou querendo é aprender coisas novas, principalmente no que diz respeito as limitações. Assim como você vive criando soluções para ultrapassar as limitações do Access, vide Open.

Pense nisso!

Abraço!