Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: 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 вся ветка

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
3-70179
Remis
2003-05-03 01:06
2003.05.22
Delete SQL


14-70500
Шоломицкий
2003-05-01 22:38
2003.05.22
Прикол №2. Решил повеселить вас ещё одной историей!


14-70505
pathfinder
2003-05-03 02:06
2003.05.22
После компиляции hlp файла там одни калябушки...


14-70485
Supreme 2
2003-05-03 08:03
2003.05.22
Небольшие вопросики


14-70432
Ricks
2003-05-01 21:22
2003.05.22
Игра - танчики.