Jump to content

inteiro ou decimal


bgmc

Recommended Posts

Tens que verificares se existe algum ponto ou uma virgula, ou seja,

1 - Transformas esse valor inteiro numa string;

2 - Verificas se existe algum algarismo que não seja numérico, isto é, alguma virgula ou ponto;

3 - Invertes novamente a string em numérico.

Lema: Se eu não saber de alguma coisa não se preocupem porque tento sempre ajudar alguma coisita, nem que seja, por palpites/sugestões.

Link to comment
Share on other sites

Numa perspectiva mais matemática, também podes comparar os valores obtidos pelos arredondamentos por excesso e por defeito. Isto é, se tivermos o número 7.3, se o arredondarmos por excesso, obtemos o valor 8, e se arredondarmos por defeito obtemos o valor 7, logo, sabemos que se trata de um número decimal, pois são diferentes.

Em VB, podes recorrer às funções Math.Ceiling e Math.Floor para fazer os arredondamentos por excesso e defeito, respectivamente.

Nick antigo: softclean | Tens um projeto? | Wiki P@P

Ajuda a comunidade! Se encontrares algo de errado, usa a opção "Denunciar" por baixo de cada post.

Link to comment
Share on other sites

Ou ainda, seguindo o método do AMateus:

Private Function IsValueInteger(ByVal num As Double) As Boolean
    Return  Int(num) = num
End Function

E caso queiras saber a parte inteira e a parte decimal:

Private Function ValueInteger(ByVal num As Double) As Integer
    Return Int(num)
End Function

Private Function ValueDecimal(ByVal num As Double) As Double
    Return num Mod 1 
End Function

O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.