IFinance.AmorLinC

Синтаксис Fore

AmorLinC(Cost: Double;

PurchaseDate: DateTime;

FirstPeriodEnd: DateTime;

Salvage: Double;

Period: Integer;

Rate: Double;

Basis: Integer): Double;

Синтаксис Fore.NET

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 - Американский/360 дней (метод NSAD);
1 - Фактический/фактический;
2 - Фактический/360 дней;
3 - Фактический/365 дней;
4 - Европейский 30/360 дней.		 Должен принимать значения 0, 1, 3 или 4.

Описание

Метод AmorLinC возвращает величину амортизации для каждого периода.

Комментарии

Данный метод предназначен для французской системы бухгалтерского учета.

Если актив приобретается в середине бухгалтерского периода, то учитывается пропорционально распределенная амортизация.

Для получения величины амортизации для каждого периода с учетом коэффициента амортизации используйте метод IFinance.AmorDegrC.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку 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».

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

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;

См. также:

IFinance