| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите функцию добавление копеек к сумме [D6, WinXP]
dreamse © (2005-11-04 12:17:00)Например есть число :
18 нужно чтобы преобразовалось в 18,00
Если число 18,02
то так и осталось
Если 18,0 то переводилось в 18,00
Так же должно работать не только с 18 ( т.е 2 символа ) но и например 6 \ 154 \ 3434 и т.д
возможно есть какая то стандартная функция для преобразования ?
msguns (2005-11-04 16:13:00) [1]>Виталий Панасенко (04.11.05 16:07) [5]
>Тут есть похоже, только один вариант - строка...но это как-то...
Да ? Оригинально ;) Тогда FORMAT
Виталий Панасенко (2005-11-04 16:07:00) [2]
> msguns © (04.11.05 13:49) [4]
> >dreamse (04.11.05 13:46) [3]
> >Вот именно что храниться они могут как с копейками так
> и без них по этому нужно сделать обработчик
>
> Можно поподробнее о том, как они будут хранится ?
Тут есть похоже, только один вариант - строка...но это как-то...
msguns (2005-11-04 13:49:00) [3]>dreamse (04.11.05 13:46) [3]
>Вот именно что храниться они могут как с копейками так и без них по этому нужно сделать обработчик
Можно поподробнее о том, как они будут хранится?
dreamse (2005-11-04 13:46:00) [4]> msguns © (04.11.05 13:41) [2]
Вот именно что храниться они могут как с копейками так и без них по этому нужно сделать обработчик
msguns (2005-11-04 13:41:00) [5]ИМХО, опять путаниза с хранениеми отображениемданных
gdaujk (2005-11-04 13:31:00) [6]Если дело в округлении до 2-х знаков после запятой, то:
function GetMeKopeykaPlease(Value: Real): Real;
begin
Result := Round(Value*100)/100;
end;
Если же дело в получении строки, представляющей реальное число с 2-мя знаками после запятой, то:
function GetMeKopeykaPlease2(Value: Real): String;
begin
Result := FloatToStrF(Value, ffFixed, 10, 2);
end;
PS: возможно есть какая то стандартная функция для преобразования
Да есть, в модуле Many.pas :-)
| |
