Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
ВнизПривет всем,вопрос такой , как можно окурглить числа после Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c