PostHeaderIconDelphi. Функция SLNDepreciation( Cost, Salvage: Extended; Life: Integer ): Extended;

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

Модуль: Math

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

Cost - первоначальную стоимость оборудования.
Salvage - конечная стоимость оборудования.
Life - срок эксплуатации.

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

Пример
var
   Amort : Extended;
begin
  ...
   Amort:= SLNDepreciation(1000, 200, 5);       { Amort:= 160 }
  ...
end;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.