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 — перетворює числовий рядок у грошовий вираз.