IFinance.Vdb

Синтаксис Fore

Vdb(

Cost: Double;

Salvage: Double;

Life: Double;

StartPeriod: Double;

EndPeriod: Double;

Factor: Double;

NoSwitch: Boolean): Double;

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

Vdb(

Cost: double;

Salvage: double;

Life: double;

StartPeriod: double;

EndPeriod: double;

Factor: double;

NoSwitch: boolean): double;

Параметры

Параметры Описание Ограничения
Cost Начальная стоимость актива. Должен быть неотрицательным.
Salvage Стоимость в конце периода амортизации. Должен принадлежать промежутку [0;Cost].
Life Число периодов амортизации актива Должен быть положительным.
StartPeriod Начальный период, для которого вычисляется амортизация. Должен принадлежать промежутку [1;Life].
EndPeriod Конечный период, для которого вычисляется амортизация. Должен принадлежать промежутку [StartPeriod;PeriodCount].
Factor Процентная ставка снижающегося остатка. Должен быть положительным.
NoSwitch Логическое значение, определяющее, следует ли использовать линейную амортизацию в том случае, когда амортизация превышает величину, рассчитанную методом снижающегося остатка.  

Описание

Метод Vdb возвращает величину амортизации актива для любого выбранного периода, в том числе для частичных периодов, с использованием метода двойного уменьшения остатка или иного указанного метода.

Комментарии

Если параметр Factor равен 2, то для вычисления амортизации используется метод двойного уменьшения остатка:

Где:

Ddb(Cost,Salvage,Life,Period,Factor) - значение амортизации актива за заданный период.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку MathFin.

Sub UserProc;
Var
    r: Double;
Begin
    r := Finance.Vdb(5000, 100, 12, 1, 3, 2, True);
    Debug.WriteLine(r);
End Sub UserProc;

В результате выполнения примера в окно консоли будет выведена величина амортизации актива, равная «1273.15».

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
    r: double;
    Finance: FinanceClass = New FinanceClass();
Begin
    r := Finance.Vdb(5000, 100, 12, 1, 3, 2, True);
    System.Diagnostics.Debug.WriteLine(r);
End Sub;

См. также:

IFinance