Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: alecks_lp А так?
x - число для округления D - количество знаков после округления Public Function BRound(ByVal x As Currency, Optional ByVal D As Integer = 0) As Currency Const DEC_SIMBOL = 10 Const ROU_LEVEL = 0.5 BRound = Fix(x * DEC_SIMBOL ^ D + ROU_LEVEL * Sgn(x)) / DEC_SIMBOL ^ D End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.