Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
Currency
Тип
Тип с плавающей запятой с 4 десятичными числами, используемыми для финансовых значений System unit
  type Currency;
Описание
Тип Currency предназначен для использования в финансовых приложениях. Он поддерживает 4 десятичных места с не менее 53 битами точности.
Примечания
* Зависит от точности плавающей запятой процессора.

Очень большие значения Currency будут терять точность с некоторыми из StrUtils функций.
Похожие команды
CurrToStr  Преобразует денежную величину в строку

CurrToStrF  Преобразует денежную величину в строку с форматированием

Double  Тип с плавающей запятой, поддерживающий приблизительно 15 цифр точности

Extended  Тип с плавающей запятой обладающий самой высокой точностью и вместимостью

PCurrency  Указатель на значение Валюты (Currency)

Single  Тип числа с плавающей запятой обладающий наименьшей вместимостью и точностью

StrToCurr  Преобразует числовую строку в денежное выражение


Автономное отопление без газа пеллетные котлы Kostrzewa
 
Пример кода : Окружение вниз и вверх количества валюты
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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия