Tirar os numeros depois da virgula.

[rodrigo.p 0]

estou precisando de um codigo que faça isso...depois de um calculo ele da numero, por ex: 98,1556644virar 99 somente sem a virgulae se for por ex 98,0000000 ficar somente 98e se for 98,00000001 virar 99entenderam?se o calculo der um numero acima do numero real ele adiciona 1 no numero inteiro senão ele não adiciona...obrigado

[Salgado 4]

Seria isso:

If Calculado <= Int(Calculado) Then
Calculado = Int(Calculado)
Else
Calculado = Int(Calculado)+1
End If

[rockbilly 0]

Veja se isso da certo para você:

Function arredonda(valor)

 

direita = right(valor,2)

If (direita > 00) and (Len(valor) > 2) Then

     inteiro = Cint(valor) + 1

  Else

    If (Len(valor = 2)) Then

     inteiro = Cint(valor)

    End if

End if

 

arredonda = inteiro

End function

num = 98.11225625

 

trata = arredonda(num)

Mas isso só funciona se não tiver virgula para o que você quer... ai você adpta!

[manga 0]

Galera, não sei se estou entendendo bem o problema, mas existe uma função em VB especial para isso:Round(numero, casas_dec)É só setar casas_dec para 0 e o problema está resolvido. Não é?x = 98,1556644y = Round(x, 0)y será arredondado para 99

[rockbilly 0]

Sim manga, mas acontece que a função round, arredonda depois dos 0,5 para o proximo numero e ele quer q arredonde acima de 0... então para ele já nao serviria a função!

[d.eleete 0]

Uma gambiarra que funciona eh somar com 0.9Se for 1,1 + 0,9 = 2 Se for 1,0 + 0,9 = 1,9 (depois da um int() e vira 1...)