CurrencyToInt(X : Currency) : Int
Преобразовать число в денежном формате в целое число

Функция CurrencyToInt преобразовывает число в денежном формате в целое число соблюдая правила округления.

Пример:

Procedure OnCreate;
Var 
  C:currency;
  I:integer;
Begin
  C:=100.50C;
  I:=CurrencyToInt(C);
  Warning(ToStr(C) + ' => ' + ToStr(I));//результат - 100.50 => 101
End;

© RTIT