IFinance.AmorDegrC

Syntax

AmorDegrC(Cost: Double; PurchaseDate: DateTime; FirstPeriodEnd: DateTime; Salvage: Double; Period: Integer; Rate: Double; [Basis: Integer = 0]): Double;

AmorDegrC(Cost: double; PurchaseDate: System.DateTime; FirstPeriodEnd: System.DateTime; Salvage: double; Period: integer; Rate: double; Basis: integer): double;

Parameters

Cost. Cost for acquiring an asset. Must be positive.

PurchaseDate. Date of acquiring an asset. Must be less than FirstPeriodEnd.

FirstPeriodEnd. End date of the first period. Must be greater than PurchaseDate.

Salvage. The salvage value at the end of the life of the asset. Must belong to the [0;Cost] interval.

Period. Depreciation period. Must be positive.

Rate. Depreciation interest rate. Must be positive.

Basis. The day calculation method used. Select a value from 0 to 4:

Optional parameter.

Description

The AmorDegrC method returns the size of depreciation for each period considering depreciation coefficient.

Comments

This method is used with the French accounting system.

The method calculates depreciation until the last depreciation period or until the depreciation total value is more than the difference between the original cost and the depreciated cost of an asset.

If product life is between 0 and 1, 1 and 2, 2 and 3, 4 and 5, the method displays an error message.

The following depreciation coefficients are used by this method:

Product life (1/rate) Depreciation coefficient
From 3 to 4 years. 1,5
From 5 to 6 years. 2
More than 6 years. 2,5

Fore Example

Add a link to the MathFin system assembly.

Sub UserProc;
Var
    r: Double;
Begin
    r:= Finance.AmorDegrC(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.AmorDegrC(2000, DateTime1, DateTime2, 200, 1, 0.15, 3);
    System.Diagnostics.Debug.WriteLine(r);
End Sub;

After executing the example the console window displays the value of depreciation equal to 586.

See also:

IFinance