[VB6] Arredondar número a X casas decimais

[xplode_me]

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! 😛

Cumprimentos

[xplode_me]

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)

😛

[softklin]

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

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