Здравствуйте Snax, Вы писали:

S>>Ф-ция округления в бейсике работает криво

S>А в чем кривость-то? И как должно быть правильно?

Private Sub Command1_Click()
Dim i As Double
i = 0.005
MsgBox "Round(i,2) = " & CStr(Round(i, 2))
End Sub

Должно получаться, IMHO 0.01, а получается 0. Не знаю где как, а наших бухгалтеров это не устраивает :-)