FloatToCurrency(X : Float) : Currency
Преобразовать число с плавающей точкой в число денежного формата

Функция FloatToCurrencyt преобразовывает число с плавающей точкой в число денежного формата. Дробная часть округляется до 4-х знаков.

Пример:

Procedure OnCreate;
var
  F : Float;
  C : Currency;
Begin
  F := 100.99999;
  C := FloatToCurrency(F);
  Warning(ToStr(C)) ;//результат - 101.00 
End;

© RTIT