PostHeaderIconDelphi. Функция CurrToStrF( Value: Currency; Format: TFloatFormat; Digits: Integer ): string;

Функция CurrToStrF( Value: Currency; Format: TFloatFormat; Digits: Integer ): string;

Модуль: SysUtils

Описание
Функция конвертирует значение типа Currency, указанное в параметре Value, в его строковое представление, используя заданный формат. Действие данной функции аналогично функции FloatToStrF с точностью (Precision) равной 19 знакам. Назначение параметра Digits зависит от типа формата строки, определенного в параметре Format. Подробности форматирования см. в описании функции FloatToStrF.


Пример
var
  SumWithNDS, NDS: Currency;
  S: string;
begin
  SumWithNDS:= 10203;
  NDS:=SumWithNDS/6;
  MessageDlg('Сумма: '+ CurrToStrF( SumWithNDS, ffCurrency, 2)+ #13+ 'НДС=20%: '+ CurrToStrF( NDS, ffCurrency, 2), mtInformation, [mbOk], 0);
end;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.