Ja używam takiej oto funkcji.
Public Function RndNum(ByVal Number As Variant, ByVal Decimals As Integer)
As Variant
Const TITLEBAR = ""
If Decimals >= 0 Then
RndNum = Int(Number * 10 ^ Decimals + 0.5) / 10 ^ Decimals
RndNum = CDbl(Format(RndNum, "#." & String(Decimals, "0")))
Else
RndNum = CDbl(Int(Number) * 10 ^ (-Decimals))
End If
End Function
Nie pamiętam niestety skąd to mam więc przepraszam autora, że nie mogłem się
na niego powołać
Pozdro
Jaco