Функция

SYD

Синтаксис

SYD(cost, salvage, life, period)

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

Параметры

Замечания

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

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

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

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 
DepYear = CInt(InputBox("За какой год вычислить снижение стоимости?"))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "Введите число от 1 до " & LifeTime
    DepYear = CInt(InputBox("За какой год вычислить снижение стоимости?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)

MsgBox "Снижение стоимости за " & DepYear & " год равно " & Format(PDepr, Fmt) & "."

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

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

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

Логин:

Пароль:

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