AmorLinC(Cost: Double; PurchaseDate: DateTime; FirstPeriodEnd: DateTime; Salvage: Double; Period: Integer; Rate: Double; [Basis: Integer = 0]): Double;
AmorLinC(Cost: Double; PurchaseDate: System.DateTime; FirstPeriodEnd: System.DateTime; Salvage: double; Period: integer; Rate: double; Basis: integer): 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;
Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
r: double;
Finance: FinanceClass = New FinanceClass();
DateTime1, DateTime2: System.DateTime;
Begin
DateTime1 := New DateTime(2008,01,01);
DateTime2 := New DateTime(2008,08,01);
r := Finance.AmorLinC(2000, DateTime1,
DateTime2, 200, 1, 0.15, 3);
System.Diagnostics.Debug.WriteLine(r);
End Sub;
В результате выполнения примера в окно консоли будет выведена величина амортизации, равная 300.
См. также: