Проблема с округление

[mavlon_m]

Здравствуйте, скажите пожалуйста мне нужень функция огругление цифрами на пример 1.665 нужно возврашать 1.66. использовал FormatFloat мне выдает 1.67. Спасибо!

[_Engine_]

Function MyRound(const Value : Double) : Double;
begin
  Result := (Trunc(Value*100))/100;
end;

[SNUPY]

если скорость не важна то как вариант

y:=trunc(x*100)/100;

LOL пока проглядывал модуль math уже ответили =)

[asmodey1]

Сообщение от mavlon_m

Здравствуйте, скажите пожалуйста мне нужень функция огругление цифрами на пример 1.665 нужно возврашать 1.66. использовал FormatFloat мне выдает 1.67. Спасибо!

Тогда это не округление, а "отбрасывание", ибо по канонам округления результат как раз и должен быть 1.67...