DollarDe(FractionValue: Double; Fraction: Integer): Double;
DollarDe(FractionValue: double; Fraction: integer): double;
Параметры | Описание | Ограничения |
FractionValue | Число, состоящее из целой и дробной частей, разделенных десятичным разделителем. | Больше либо равно 0. |
Fraction | Целое, которое нужно использовать в качестве знаменателя. | Не равно 0. |
Метод DollarDe преобразует цену в рублях, выраженную в виде дроби, в цену в рублях, выраженную десятичным числом.
DollarDe вычисляется следующим образом:
DollarDe = FV + Value/(0.1k × Fraction),
где:
FV. Целая часть FractionValue;
Value. Дробная часть FractionValue;
k. Наименьшее положительное число, при котором 0.1k × Fraction меньше «1».
Для выполнения примера добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
r: Double;
Begin
r := Finance.DollarDe(1.02, 16);
Debug.WriteLine(r);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведено преобразование, равное «1.125». Пример преобразует число 1,02, читаемое как 1 целая и 2/16, в десятичное число «1,125». Поскольку значение Fraction равно 16, цена выражается с точностью до 1/16 рубля.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
r: double;
Finance: FinanceClass = New FinanceClass();
Begin
r := Finance.DollarDe(1.02, 16);
System.Diagnostics.Debug.WriteLine(r);
End Sub;
См. также: