开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
EuroConvConst.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

EuroConvConst.pas：源码内容
  1. unit EuroConvConst;
  3. interface
  5. uses
  6.   ConvUtils;
  8. var
  9.   // Euro Currency Conversion Units
  10.   // basic unit of measurement is Euro
  11.   cbEuroCurrency: TConvFamily;
  13.   cuEUR: TConvType;
  14.   cuDEM: TConvType; // Germany
  15.   cuESP: TConvType; // Spain
  16.   cuFRF: TConvType; // France
  17.   cuIEP: TConvType; // Ireland
  18.   cuITL: TConvType; // Italy
  19.   cuBEF: TConvType; // Belgium
  20.   cuNLG: TConvType; // Holland
  21.   cuATS: TConvType; // Austria
  22.   cuPTE: TConvType; // Portugal
  23.   cuFIM: TConvType; // Finland
  24.   cuGRD: TConvType; // Greece
  25.   cuLUF: TConvType; // Luxembourg
  27. type
  28.   TEuroDecimals = 3..6;
  30. function EuroConvert (const AValue: Double; const AFrom, ATo: TConvType;
  31.   const Decimals: TEuroDecimals = 3): Double;
  33. implementation
  35. uses
  36.   Math;
  38. const
  39.   DEMPerEuros = 1.95583;
  40.   ESPPerEuros = 166.386;
  41.   FRFPerEuros = 6.55957;
  42.   IEPPerEuros =  0.787564;
  43.   ITLPerEuros =  1936.27;
  44.   BEFPerEuros =  40.3399;
  45.   NLGPerEuros =  2.20371;
  46.   ATSPerEuros =  13.7603;
  47.   PTEPerEuros =  200.482;
  48.   FIMPerEuros =  5.94573;
  49.   GRDPerEuros = 340.750;
  50.   LUFPerEuros = 40.3399;
  52. function EuroConvert (const AValue: Double; const AFrom, ATo: TConvType;
  53.   const Decimals: TEuroDecimals = 3): Double;
  54. begin
  55.   // check special case: no conversion
  56.   if AFrom = ATo then
  57.     Result := AValue
  58.   else
  59.   begin
  60.     // convert to Euro, than round
  61.     Result := ConvertFrom (AFrom, AValue);
  62.     Result := RoundTo (Result, -Decimals);
  63.     // convert to currency than round again
  64.     Result := ConvertTo (Result, ATo);
  65.     Result := RoundTo (Result, -Decimals);
  66.   end;
  67. end;
  70. initialization
  71.   // Euro Currency's family type
  72.   cbEuroCurrency := RegisterConversionFamily('EuroCurrency');
  74.   cuEUR := RegisterConversionType(cbEuroCurrency, 'EUR', 1);
  75.   cuDEM := RegisterConversionType(cbEuroCurrency, 'DEM', 1 / DEMPerEuros);
  76.   cuESP := RegisterConversionType(cbEuroCurrency, 'ESP', 1 / ESPPerEuros);
  77.   cuFRF := RegisterConversionType(cbEuroCurrency, 'FRF', 1 / FRFPerEuros);
  78.   cuIEP := RegisterConversionType(cbEuroCurrency, 'IEP', 1 / IEPPerEuros);
  79.   cuITL := RegisterConversionType(cbEuroCurrency, 'ITL', 1 / ITLPerEuros);
  80.   cuBEF := RegisterConversionType(cbEuroCurrency, 'BEF', 1 / BEFPerEuros);
  81.   cuNLG := RegisterConversionType(cbEuroCurrency, 'NLG', 1 / NLGPerEuros);
  82.   cuATS := RegisterConversionType(cbEuroCurrency, 'ATS', 1 / ATSPerEuros);
  83.   cuPTE := RegisterConversionType(cbEuroCurrency, 'PTE', 1 / PTEPerEuros);
  84.   cuFIM := RegisterConversionType(cbEuroCurrency, 'FIM', 1 / FIMPerEuros);
  85.   cuGRD := RegisterConversionType(cbEuroCurrency, 'GRD', 1 / GRDPerEuros);
  86.   cuLUF := RegisterConversionType(cbEuroCurrency, 'LUF', 1 / LUFPerEuros);
  87. end.