Oracle Number(9,2) выделить рубли и копейки

отредактировано 21:03 Раздел: FastReport 4.0
ПРивет.

Подскажите пожалуйста как вычислить рубли и копейки.


Пробовал через функцию Frac. Но выводится совсем странное число
(попробуйте распечатать в очтете [Frac(2084.27)] - выводит 0.269999999999999999999999)


Пробовал написать функцию:
function GetKop (E:double): integer;
var
Rub: integer;
begin
Rub := Trunc(E);
Result := Trunc ((E-Rub)*100);
end;

Тоже не работает - последнее число на 1 меньше и дальше куча 9от идет.

Хелп плиз.

Комментарии

  • gpigpi
    отредактировано 21:03
    Поставьте числовое форматирование в TfrxMemoView с двумя знаками после запятой
  • отредактировано September 2010
    ДА спасибо помогло.
    Но я все таки сделаю через формулу и юзерскую функцию. Для надежности.
    А если опять чего слетит меня порвут юзвери )

    Спасибо большое )

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.