Функция

DDB

Синтаксис

DDB(cost, salvage, life, period[, factor])

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

Параметры

Замечания

Функция использует именованные аргументы. Вычисление снижения стоимости по методу с ускоренной амортизацией обеспечивает учет наиболее быстрого снижения стоимости в начальный период эксплуатации.
Аргументы life и period должны задаваться в одних и тех же единицах. Например, если длительность периода эксплуатации life выражена в месяцах, period также следует указать в месяцах. Все аргументы должны иметь положительные значения.
Расчет значения функции DDB производится по следующей формуле:

Снижение стоимости за period = ((cost – salvage) * factor) / life

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

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

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

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

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

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

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

Логин:

Пароль:

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