Форум: "Базы";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Вниз

Округление   Найти похожие ветки 

← →
DmitryS   (2002-01-22 12:34) [8]

Попробуй так

function TruncTo2Digit(Arg: Double): Double;
begin
Result:= Round(Arg * 100.0) / 100.0;
end;

или так

function TruncTo5Digit(Arg: Double): Double;
begin
Result:= Round(Arg * 100000.0) / 100000.0;
end;

Можно испоьзовать Trunc или Round в зависимости от того округлять или отрезать знаки.

---

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

Форум: "Базы";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c