Delphi тип Currency – тип с плавающей запятой с 4 десятичными числами, используемыми для финансовых значений.
System unit
type Currency;
Тип Currency предназначен для использования в финансовых приложениях. Он поддерживает 4 десятичных места с не менее 53 битами точности.
Примечание.
* Зависит от точности плавающей запятой процессора.
Очень большие значения Currency будут терять точность с некоторыми из StrUtils функциями.
Тип Currency в Delphi: Окружение вниз и вверх количества валюты
var
account1, account2, account3 : Currency;
begin
account1 := 123.456749; // Слишком много десятичных чисел - будут округлены вниз
account2 := 123.456750; // Слишком много десятичных чисел - будут округлены вверх
account3 := account1 + account2;
ShowMessage('Account1 = '+CurrToStr(account1));
ShowMessage('Account2 = '+CurrToStr(account2));
ShowMessage('Account3 = '+CurrToStr(account3));
end;
Результат
Account1 = 123.4567
Account2 = 123.4568
Account3 = 246.9135
Похожие функции, процедуры и команды
CurrToStr — преобразует денежную величину в строку.
CurrToStrF — преобразует денежную величину в строку с форматированием.
Double — тип с плавающей запятой, поддерживающий приблизительно 15 цифр точности.
Extended — тип с плавающей запятой обладающий самой высокой точностью и вместимостью.
PCurrency — указатель на значение Валюты (Currency).
Single — тип числа с плавающей запятой обладающий наименьшей вместимостью и точностью.
StrToCurr — преобразует числовую строку в денежное выражение.
