Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.09;
Скачать: CL | DM;

Вниз

Привет всем,вопрос такой , как можно окурглить числа после   Найти похожие ветки 

 
uname   (2003-09-30 08:34) [0]

я еще начинающий программист, так что прошу сторго не судить а помочь...
мне например нужно 2345,4489 окурглить в 2345,45
как это сделать,

Заранее спаисбо!!


 
Думкин ©   (2003-09-30 08:41) [1]

StrToFloat(FloatToStrF(2345.4489,ffFixed,18,2))

Например.


 
uname   (2003-09-30 08:53) [2]

>Думкин
Пасибо! получилось


 
VAleksey ©   (2003-09-30 09:34) [3]

x:= Round(x*100)/100;


 
Семен Сорокин ©   (2003-09-30 09:47) [4]

FormatFloat


 
Samael6 ©   (2003-09-30 09:50) [5]

RoundTo(123.34,2) {=123}


 
BillyJeans ©   (2003-09-30 11:26) [6]

SimpleRoundTo(2345,4489, -2);


 
BlackKing   (2003-09-30 12:03) [7]

Izvrashenije, no rabotajet

Function FloatRound(Value: Extended; Digits: Integer): Extended;
var
Digits10: LongInt;
DigitsString: String;
begin
DigitsString:="1";
while Length(DigitsString)<Digits+1 do
DigitsString:=DigitsString+"0";
Digits10:=StrToInt(DigitsString);
Result:=Round(Value*Digits10)/Digits10;
end;



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

Текущий архив: 2003.10.09;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
4-27793
DelphiNew
2003-08-04 10:49
2003.10.09
Убийство процессов


3-27402
duke2
2003-09-18 07:31
2003.10.09
Соединение с InterBase с раб.места происходит 100 сек при пустой


1-27526
Kair
2003-09-25 08:16
2003.10.09
Изменения на диске


1-27583
Bezpal
2003-09-29 12:33
2003.10.09
Кто знает серийный и регистрационный номер для 5 Delphi?


6-27626
Серега
2003-08-11 00:25
2003.10.09
CGI