Модуль: Math
Описание
Функция вычисляет амортизационные отчисления на определенном этапе. В качестве параметров используются: начальная стоимость Cost, срок службы Life, конечная стоимость Salvage и амортизационный период Period. Вычисления производятся по следующим формулам:
Период | Сумма амортизационных отчислений |
1 | А1:= Cost*2/Life |
2 | А2:= (Cost-А1)*2/Life |
3 | А3:= (Cost-А1-А2)*2/Life |
... | ... |
n | Аn:= (Cost-А1-А2 - ... - Аn-1)*2/Life, где n=Period |
При достижении конечной стоимости, амортизация перестает начисляться, и для последующих периодов функция будет возвращать значение, указанное в параметре Salvage.
Пример
var
A : Extended;
begin
...
A:=DoubleDecliningBalance(1000, 100, 5, 1); { A:=400 }
...
end;