Функции и процедуры Delphi. Справочник.

 

Не знаешь, где искать?
Читай Delphi FAQ!

 


I. МАТЕМАТИЧЕСКИЕ ФУНКЦИИ И ПРОЦЕДУРЫ

7. Функции и процедуры для финансовых вычислений


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


Модуль: 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;


[Вернуться к содержанию]

 


Рейтинг@Mail.ru