[Resolvido] Números Inteiros

[Michael_c 0]

Fala Galera!

 

A princípio pensei que minha dúvida era simples, pesquisei aqui no Fórum, no cade e não achei nada.

 

Preciso saber se um número é inteiro, por exemplo:

 

 

Dim meu_numero

meu_numero = 2,2

if meu_numero (se inteiro) = true then
'Minha ação
else
'outra ação
end if

Não sei se é possível fazer uma verificação Booleana disso... Ou se existe outra forma.

 

Se alguém puder me ajudar.

 

Obrigado,

 

Michael C.

[DSerma 19]

<%
N = "10,25"
If (InStr(N,",")) then
response.write("Quebrado")
else
response.write("Inteiro")
End if

%>

Abraços....

[otton 0]

Michel, boa noite.

 

Você pode fazer também da seguinte forma:

 

<%

Dim num

 

num = 10

 

If TypeName(num) = "Integer" Then

Response.Write "Inteiro"

Else

Response.Write "Quebrado"

End If

%>

[Michael_c 0]

Valeu Galera!

 

Das duas maneiras resove o meu problema.

 

Obrigado.

 

Michael C.