| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Paradox, поля Currency [D6, Paradox]

NATALIk ©   (2003-10-21 11:36:00) 

Тривиальный вопрос по округлению!Как "на корню" сделать, что б суммировал с двумя знаками после запятой?

---

BrainStorm   (2003-10-23 16:19:00) [1]

Не "на корню" конечно, но работает

Currency __fastcall TDataModule1::RoundCurrency(Currency CurrSrc)
{
Currency CurrDest;

CurrDest = CurrSrc * 100 + 0.5;
CurrDest = Currency(floor(CurrDest.operator double()));
CurrDest /= 100;

return CurrDest;
}
//---------------------------------------------------------------------------

---

Anatoly Podgoretsky   (2003-10-21 11:37:00) [2]

Парадокс не имеет подлинных BCD полей

---

Наверх