Функция

SLN

Синтаксис

SLN(cost, salvage, life)

Возвращает значение типа Double, указывающее снижение стоимости за выбранный интервал времени по методу с равномерной амортизацией.

Параметры

Замечания

Функция использует именованные аргументы. Период времени, для которого вычисляется снижение стоимости, должен задаваться в тех же единицах, что и аргумент life. Все аргументы должны иметь положительные значения.

Пример использования

'в данном примере используется функция SLN для расчета снижения стоимости
'фондов за выбранный период по методу с равномерной раскладкой, в качестве
'входных данных используются значения начальной стоимости фондов (InitCost),
'остаточной стоимости (SalvageVal) и периода эксплуатации (LifeTime) в годах 

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, PDepr
Const YEARMONTHS = 12 'число месяцев в году
Fmt = "###,##0.00" 'денежный формат
InitCost = InputBox("Какова исходная стоимость фондов?")
SalvageVal = InputBox("Какова остаточная стоимость фондов?")
MonthLife = InputBox("Каков период эксплуатации в месяцах?")
Do While MonthLife < YEARMONTHS 'период в годах должен быть >= 1
    MsgBox "Период должен быть не меньше 1 года."
    MonthLife = InputBox("Каков период эксплуатации в месяцах?")
Loop
LifeTime = MonthLife / YEARMONTHS 'преобразует месяцы в годы
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1) 'округляет в годах
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "Снижение стоимости равно " & Format(PDepr, Fmt) & " за год."

Дополнительная информация

Категория: Тригонометрические и финансовые функции

Еще функции: Atn, Cos, DDB, FV, IPmt, IRR, Log, MIRR, NPer, NPV, Pmt, PPmt, PV, Rate, Sin, SLN, SYD, Tan

Логин:

Пароль:

Регистрация, забыли пароль?