Вниз
Скачать: CL | DM;

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

← →
Progh   (2005-01-29 15:30) [0]

Как округлить число до целых, десятых, сотых ... ?


← →
Andy BitOff ©   (2005-01-29 15:39) [1]

RoundTo(1.23423423,-2)
=1.23


← →
Anatoly Podgoretsky ©   (2005-01-29 16:01) [2]

Круглое число - целое число, остальное логический обман. Кроме того не приходится говорить о десятых, сотых - это аттрибуты десятичных цисел, а число с плавающей запятой основанно на степенях двойки.


← →
Andy BitOff ©   (2005-01-29 19:15) [3]

Anatoly Podgoretsky ©   (29.01.05 16:01) [2]
Круглое число - целое число, остальное логический обман. Кроме того не приходится говорить о десятых, сотых - это аттрибуты десятичных цисел, а число с плавающей запятой основанно на степенях двойки.


Сильно сказано! ;)


← →
uny ©   (2005-01-29 20:19) [4]

по моим наблюдениям оно так округляет - если после заданного числа двоичных разрядов идёт две единицы - округляется в большую сторону(для положительных) в случаях когда правомерно округлить и в большую и в меньшую сторону - округляется так, что бы получаемое число стало четным


← →
Bobby Digital ©   (2005-01-30 01:14) [5]

>Anatoly Podgoretsky ... я никогда зачем так отвечать на вопрсы? ... охота показать свой интелект? ... человек совершенно понятно задал вопрос, зачем ему читать эту заумную чушь!


← →
Shama_n ©   (2005-01-30 13:15) [6]

//Функция округления числа до ближайшего кратного X
//X- До каких округлять: 1- до целых, 0.1- до десятых, 5- до кратных пяти и.т.д.
function RoundToX(RoundValue:currency;X:Currency):Currency;
var
QuantityX: integer;    
RoundToNull: currency;
begin
QuantityX := Trunc(RoundValue/X);
RoundToNull := X * QuantityX;
if RoundValue < (RoundToNull + X/2)
then Result := RoundToNull
else Result := RoundToNull + X;
end;


← →
Anatoly Podgoretsky ©   (2005-01-30 13:18) [7]

Bobby Digital ©   (30.01.05 01:14) [5]
А ты чего в кусты спрятался?


← →
Bobby Digital ©   (2005-01-30 22:25) [8]

>Anatoly Podgoretsky ©

Что ты имеешь введу?



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c
3-1105514080
Scorpio
2005-01-12 10:14
2005.02.13
Как соединить 2 таблицы ч/з ADO


4-1103887922
cfytr
2004-12-24 14:32
2005.02.13
имитация клика


1-1106934373
Юрий К
2005-01-28 20:46
2005.02.13
RichEdit и Unicode.


3-1105610916
про
2005-01-13 13:08
2005.02.13
Kak uznat skol ko zapisej v DBGride???


1-1107246266
Suvit
2005-02-01 11:24
2005.02.13
TMemo высота




   Наверх