Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];

Вниз

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

← →
moorcat   (2002-12-09 12:52) [0]

Как округлить тип Real до необходимого значения? (Например до сотых)

---

← →
OlegMsc   (2002-12-09 12:57) [1]

RoundTo(...,...)

---

← →
Виктор Щербаков   (2002-12-09 13:00) [2]

Не обманывай. В Д5 нет такой функции :)

---

← →
OlegMsc   (2002-12-09 13:02) [3]

жаль :(
но наверное есть другая...
я просто в этом уверен :)

---

← →
Axis_of_Evil   (2002-12-09 13:02) [4]

свою написать

---

← →
Виктор Щербаков   (2002-12-09 13:03) [5]

OlegMsc © (09.12.02 13:02)
Ага. Например умножить на сто, округлить до целых и поделить на сто.

---

← →
moorcat   (2002-12-09 13:32) [6]

Например, так:

function TForm1.Okrugl(cs: double; numb: integer): double;
var
db,db1,db2: double;
i: int64;
ii,ink,i1: integer;
begin
db:=cs-int(cs);
ink:=1;
for ii:=1 to numb
do ink:=ink*10;
db1:=db*ink;
db2:=cs*ink*100;
i:=trunc(int(db2)/100);
i1:=trunc(db2-i*100);
if i1>49
then inc(i);
result:=i/ink;
end;

---

← →
Separator   (2002-12-09 13:34) [7]

Зачем так мучатся?

function RoundNumber(Value: double; Digit: byte): string;
var
Factor: Extended;

begin
Factor:= Int(Exp(Digit*Ln(10)));
Result:= FloatToStr(Round(Factor*Value)/Factor);
end;


---

← →
Anatoly Podgoretsky   (2002-12-09 14:13) [8]

Для любителей


procedure TForm1.Button1Click(Sender: TObject);
var
Num:Single;
I : Integer;
begin
Num := 0.02;
ShowMessage(FloatToStr(Num));
ShowMessage(FloatToStr(Trunc(Num * 100)/100));
end;


---

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

Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];

Наверх

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