Функція DDB

Повертає значення подвійної точності, яке вказує величину амортизації активу за певний період часу з використанням методу подвійного зменшення балансу або іншого вказаного методу.

Синтаксис

DDB(вартість, зал_вартість, термін_експлуатації* [, коефіцієнт] )

Синтаксис функції DDB має такі аргументи:

Аргумент	Опис
Вартість	— обов’язковий аргумент. Подвійне визначення первісної вартості активу.
Врятування	— обов’язковий аргумент. Подвійне зазначення вартості активу після завершення терміну його корисного використання.
час роботи	— обов’язковий аргумент. Подвійне визначення тривалості строку корисного використання активу.
крапка	— обов’язковий аргумент. Подвійне зазначення періоду, для якого обчислюється амортизація активів.
Коефіцієнт	— необов’язковий аргумент. Варіант із зазначенням швидкості, з якою зменшується залишок. Якщо цей аргумент пропущено, приймається значення 2 (метод подвійного зменшення).

    

Примітки

Методом подвійного зменшення залишку обчислюється амортизація із використанням збільшеної відсоткової ставки. Амортизація є найбільшою в першому періоді, а у наступних періодах її значення зменшується.

Аргументи «термін » і « період » необхідно виражати в одних і тих же одиницях. Наприклад, якщо життя дається в місяцях, то період також повинен бути вказаний в місяцях. Усі аргументи мають бути додатними числами.

Функція DDB використовує таку формулу для обчислення амортизації за вказаний період:

Амортизація / період = ((поч_вартість – ліквідація) * коефіцієнт) / термін експлуатації

Приклад

У цьому прикладі функція DDB використовується, щоб повернути величину амортизації активу за вказаний період на основі первісної вартості (InitCost), залишкової вартості активу наприкінці строку корисного використання активу (SalvageVal), загального терміну експлуатації активу в роках ()LifeTime і періоду в роках, для якого обчислюється амортизація (Depr).

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr
Const YRMOS = 12    ' Number of months in a year.
Fmt = "###,##0.00"
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("Enter the asset's value at end of its life.")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YRMOS    ' Ensure period is >= 1 year.
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YRMOS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YRMOS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If 
DepYear = CInt(InputBox("Enter year for depreciation calculation."))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "You must enter at least 1 but not more than " & LifeTime
    DepYear = InputBox("Enter year for depreciation calculation.")
Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & _
Format(Depr, Fmt) & "."