Советы по Delphi
Функция представления чисел с плавающей точкой и нужным числом разрядов
Alexandr Kordyum советует:
Функция представления чисел с плавающей точкой и нужным числом разрядов.
Пример: Conv(2.005,2) возвращает 2.01; Conv(2.5,0) возвращает 3
|
function Conv(cs: double; numb: integer): double; var db, db1, db2: double; i: int64; ii, ink, i1: integer; st: string; 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; |
С уважением, Александр. [000897]
