Verificar se um numero eh inteiro

[dimarcinho 0]

seguinte, gostaria de verificar se um numero eh inteiro... uma função do tipo IsNumeric()alguem sabe como fazer?

[Dudys 0]

Puxa! Interessante.... vejamos... tente algo como:numero = 10,55if CDBL(numero mod int(numero)) <> 0 then é ponto flutuante!else não é ponto flutuanteend ifTenta ae e me diz se rolou

[ythalorossy 0]

tente assim:number = "10"if int(number) thenconfirma = "true"Elsecomfira = "False"End IFEsta condição verifica se o numero é inteiro

[Fernando B. 0]

tente assim:number = "10"if int(number) thenconfirma = "true"Elsecomfira = "False"End IFEsta condição verifica se o numero é inteiro

Hmmm... Nâo... não... Esse trecho de código não verifica se um número é inteiro.Abraços,Fernando Botelho

[dimarcinho 0]

eh, esse segundo codigo nao funcionou naoexiste essa função, Int() ?? nao conheço.. soh conheço o Cint()vou testar a primeira !![]´s

[williamds 0]

Se voce que saber apenas se um numero é inteiro faça isso.

 

<%

valor = 50

 

if (valor mod 2) = 0 then

response.Write("É um numero Inteiro")

else

response.Write("Não é um numero Inteiro")

end if

 

%>

 

É simples, todo numero dividido por 2 que em seu resto for 0 (zero) é um numero inteiro caso contrario não.

o comando mod retorna o resto da divisão

Exemplo:

 

500/2=250 com resto 0

501/2=250 com resto 1

[d.eleete 0]

O INT() não retorna booleano... pelo menos eu acho :) ehehehhe

[dimarcinho 0]

william acho q você confundiu minha dúvidaeu kero saber se um numero eh INTEIRO, e nao saber se ele é par ou ímpar (o seu código serve para isso)o seu próprio exemplo500 e 501 sao numeros inteirosConjuntos: N, Z, Q, R, I e Cse tiver alguma casa decimal diferente de 0, então, ele não é inteirohehehehhe[]´s

[ricardovg 1]

To meio atrasado ... mas

 

existe umas funções no vbscript q fazem umas coisas legais .. e muitas vezes acabamos programando pra caramba por desconhecer tais recursos .. digo isso baseado em minhas próprias experiências.

 

 

Um site que sempre acesso pra ver referências é o devguru...

 

Olha este link .... o comando varType.

 

http://www.devguru.com/Technologies/vbscri...ef/vartype.html

 

Espero ter contribuido ... mesmo atrasado.

 

 

Fuiiiiiiiiiiiiiiiiiiiiiiiiiii http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif

[arr 0]

Ô dimarcinho, presta atenção no postdo William que ele serve pra isso quevocê quer sim.

[Fernando B. 0]

Ô dimarcinho, presta atenção no postdo William que ele serve pra isso quevocê quer sim.

Nops... O que ele fez foi verificar se um número é par, ou ímpar...Abraços,Fernando Botelho

[d.eleete 0]

Ô dimarcinho, presta atenção no post

do William que ele serve pra isso que

você quer sim.

Engano seu, que eu saiba o numero 1 é um número inteiro :)

[d.eleete 0]

Veja se isso pode ajudar:

 

<%Dim numeronumero = 19.1if vartype(numero) = 2 then	Response.Write("Não possue casas decimais")Elseif vartype(numero) = 5 then	Response.Write("Possue casas decimais")End if%>

[Penna 0]

Número inteiro é todo aquele que dividido por ele mesmo é igual a resto 0:If numero mod numero = 0 TheninteiroElseNão é inteiroEnd IfComo la no primeiro post!

[Salgado 4]

Número inteiro é todo aquele que dividido por ele mesmo é igual a resto 0:

 

 

If numero mod numero = 0 Then

inteiro

Else

Não é inteiro

End If

 

 

Como la no primeiro post!

:blink: :wacko: :blink: :wacko:

[dimarcinho 0]

Número inteiro é todo aquele que dividido por ele mesmo é igual a resto 0:

 

 

If numero mod numero = 0 Then

inteiro

Else

Não é inteiro

End If

 

 

Como la no primeiro post!

sinceramente, acho q os matemáticos estão se revirando nos caixões

 

numero inteiro é aquele que não possuem casas decimais (ou, se preferir, possuem infinitas casas decimais, todas iguais a zero)

 

inteiro: divido por ele mesmo tem resto igual a zero ??? de onde tu tirou isso??

 

1,3 --> não eh inteiro, até onde eu saiba

 

1,3 / 1,3 = 1 (resto 0)

 

?????

 

d.eleete, vou tentar esse codigo... agora nao dah, to saindo de casa!! :P

 

caso de errado, eu tava pensando em usar um Mid() no ponto ou virgula e verificar se eh igual a zero ou não

 

bom, []´s galera

[arr 0]

Hehehe. Realmente aquele código verifica se é par ou impar, porém adicionando alguma lógica poderia servir. O problema é que o mod ás vezes faz uns aredondamentos estranhos.Outra solução:Dividindo um número pelo seu valor arredondado (sem as casas decimais) dará 1 se for inteiro. <%valor = 25.1if (valor/Int(valor)) = 1 thenresponse.Write("É um numero Inteiro")elseresponse.Write("Não é um numero Inteiro")end if%>Neste caso só é preciso tratar os valores menores que 1, pq a divisão por 0 daráerro.

[Jean Derrie Rigo 0]

Boa tarde,

Eu criei um função em SQL para o Firebird que uso aqui e se alguem achar que serve e quiser adaptar pra outra solução segue:

 

SET TERM ^ ;

create or alter procedure TDR$EH_FRACIONARIO (

pvalor type of tdr_float8)

returns (

resultado type of tdr_boolean)

as

begin

resultado = case when mod(cast(trunc(:pvalor * 100) as integer), 100) = 0 then 0 else 1 end;

suspend;

end^

SET TERM ; ^

Eu fiz alguns testes e me parece que funciona corretamente, se alguem achar algum bug favor avisar...

[xanburzum 169]

cara esse post é de bem antigo de dez anos atrás, aconselho a criar outro....

e verifique ele com o Isnumeric

 

Syntax

IsNumeric(expression)

Parameter Description expression Required. An expression Example Example

<%

Dim x
x=10
response.write(IsNumeric(x) & "<br />")
x=Empty
response.write(IsNumeric(x) & "<br />")
x=Null
response.write(IsNumeric(x) & "<br />")
x="10"
response.write(IsNumeric(x) & "<br />")
x="911 Help"
response.write(IsNumeric(x))

%>

[Jean Derrie Rigo 0]

rsrssr... na verdade eu vi por um acaso triste... e resolvi colocar uma forma direto no DB...

rsrsrs...