• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

xplode_me

[VB6] Arredondar número a X casas decimais

3 mensagens neste tópico

Olá!

Tenho aqui um problemazinho que não sei se o VB resolve com alguma função ou se é preciso desenvolver uma.

Quero passar para uma BD em access um valor (variável double), mas arrendondado a apenas 2 casas decimais, ao invés dos resultados doidos (5, 6, + casas decimais) que o VB está a retornar.

Agradeço qqer ajuda! :P

Cumprimentos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Achei a solução, já agora para os interessados:

Public Function Arredonda(ByVal value As Double, ByVal _
    digits As Integer) As Double
Dim shift As Double

    shift = 10 ^ digits
    Arredonda = CInt(value * shift) / shift
End Function

Depois é so usar:

valorarredondado = Arredonda(valorAarredondar, numeroDeCasasDecimais)

:P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

E a função round, não serve para o que tu queres?

Round( Número que queres , Nº de casas decimais )

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora