Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Внизокругление значения аргумента Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.086 c