Скачать: CL | DM;

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

← →
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-х знаков

---

← →
Rocker ©   (2003-05-12 11:13) [3]

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


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;


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c