AmorLinC(Cost: Double; PurchaseDate: DateTime; FirstPeriodEnd: DateTime; Salvage: Double; Period: Integer; Rate: Double; [Basis: Integer = 0]): Double;
Cost. Затраты на приобретение актива. Должен быть неотрицательным;
PurchaseDate. Дата приобретения актива. Должен быть меньше FirstPeriodEnd;
FirstPeriodEnd. Дата окончания первого периода. Должен быть больше PurchaseDate;
Salvage. Остаточная стоимость актива в конце периода амортизации. Должен принадлежать промежутку [0;Cost];
Period. Период амортизации. Должен быть неотрицательным;
Rate. Процентная ставка амортизации. Должен быть положительным;
Basis. Используемый способ вычисления дня. Задается в интервале от 0 до 4:
0. Способ вычисления дня американский/360 дней (метод NSAD). Значение по умолчанию;
1. Способ вычисления дня Фактический/фактический;
2. Способ вычисления дня Фактический/360 дней;
3. Способ вычисления дня Фактический/365 дней;
4. Способ вычисления дня европейский 30/360 дней.
Необязательный параметр.
Метод AmorLinC возвращает величину амортизации для каждого периода.
Данный метод предназначен для французской системы бухгалтерского учета.
Если актив приобретается в середине бухгалтерского периода, то учитывается пропорционально распределенная амортизация.
Для получения величины амортизации для каждого периода с учетом коэффициента амортизации используйте метод IFinance.AmorDegrC.
Добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
r: Double;
Begin
r:= Finance.AmorLinC(2000, DateTime.ComposeDay(2008,01,01),
DateTime.ComposeDay(2008,08,01), 200, 1, 0.15, 3);
Debug.WriteLine(r);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведена величина амортизации, равная 300.
См. также: