Округление денежного значенияDelphi , Синтаксис , ПреобразованияОкругление денежного значения
Автор: Сергей { **** UBPFD *********** by delphibase.endimus.com **** >> Округление денежного значения Округление денежного значения Зависимости: ??? Автор: Сергей, nfkazak@inbox.ru, Краснодар Copyright: VIP BANK Дата: 11 сентября 2002 г. ***************************************************** } function RoundCurrency(value: currency): currency; var x, y: Double; begin x := int(value * 100); y := Frac(value * 100); if y >= 0.5 then x := x + 1; result := x / 100; end; Статья Округление денежного значения раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |