DollarFr(DecimalValue: Double; Fraction: Integer): Double;
Параметры | Описание | Ограничения |
DecimalValue | Число, состоящее из целой и дробной частей, разделенных десятичным разделителем. | Больше либо равно 0. |
Fraction | Целое, которое нужно использовать в качестве знаменателя. | Не равно 0. |
Метод DollarFr преобразует цену в рублях, выраженную десятичным числом, в цену в рублях, выраженную в виде дроби.
DollarFr вычисляется следующим образом:
DollarFr = FV + Value × (0.1k × Fraction),
где:
FV. Целая часть FractionValue;
Value. Дробная часть FractionValue;
k. Наименьшее положительное число, при котором 0.1k × Fraction меньше «1».
Для выполнения примера добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
r: Double;
Begin
r := Finance.DollarFr(1.125, 16);
Debug.WriteLine(r);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведено преобразование, равное «1.02». Пример преобразует десятичное число 1,125 в число, читаемое как 1 целая и 2/16 и записанное как 1,02.
См. также: