Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: alecks_lp да, действительно, дал универсальный округлитель, а задача -то другая! ну, тогда примерно так
Public Function BRound(ByVal X As Double) As Long BRound = Int(X) - ((X - Int(X)) > 0) End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.