округление значения аргумента

← →
Litvin © (2003-05-12 10:54) [0]

Люди!
Подскажите, пожалуйста, функцию, округляющую значение аргумента до указанного числа знаков после запятой.

← →
Palladin © (2003-05-12 11:02) [1]

что то типа этого
function RoundBy(Num:Currency; Precision:integer):Currency;
var
p:int64;
begin
p:=trunc(intpower(10,Precision));
result:=Round(Num*p)/p;
end;

← →
Digitman © (2003-05-12 11:05) [2]

проще и наглядней всего воспользоваться ф-цией

FormatFloat(Format: string; Value: Extended);

второй параметр - строковый шаблон того, что ты хочешь в рез-те преобразования получить

например, "# ##0.00" - дробная часть числа будет усечена (с банковским округлением) до 2-х знаков

Функций таких стандартных не знаю, но можно сделать пользовательскую!

function okrugl(var a:extended; b:integer;):extended; var c:extended; begin //a-округляемое число, b-число знаков после запятой c:=exp(b*ln(10)); //получаем 10 в степени b a:=a*c; //Сдвигаем запятую вправо на b round(a); //Округляем okrugl:=a/c; //Получаем результат end;

Принцип должен быть понятен.

округление значения аргумента Найти похожие ветки