Delphi. Функция SYDDepreciation( Cost, Salvage: Extended; Life, Period: Integer ): Extended;

Функция SYDDepreciation( Cost, Salvage: Extended; Life, Period: Integer ): Extended;

Модуль: Math

Описание
Функция вычисляет сумму амортизационных отчислений на заданном этапе по методу ускоренной амортизации.

Cost - первоначальная стоимость оборудования.
Salvage - конечная стоимость.
Life - срок эксплуатации.
Period - номер этапа, для которого определяется сумма амортизационных отчислений.

Для вычислений по методу равномерной амортизации используйте функцию SLNDepreciation.

Пример
var
   Amort : Extended;
begin
  ...
   Amort:= SYDDepreciation(1000, 100, 5, 1);      {Amort:=300}
  ...
end;