Повертає подвійне значення, що вказує амортизацію активу за певний період часу за допомогою методу подвійного зменшення залишку або іншого вказаного методу.
Синтаксис
DDB(поч_ вартість;зал_вартість;термін_експлуатації;період [;фактор] )
Синтаксис функції DDB має такі аргументи:
|
Аргумент |
Опис |
|
витрати |
— обов’язковий аргумент. Подвійне значення, яке вказує початкову вартість активу. |
|
Врятувати |
— обов’язковий аргумент. Подвійне визначення вартості активу в кінці його корисного терміну експлуатації. |
|
час роботи |
— обов’язковий аргумент. Подвійне визначення тривалості терміну експлуатації активу. |
|
Період |
— обов’язковий аргумент. Подвійне значення, що вказує період обчислення амортизації активів. |
|
Фактор |
— необов’язковий аргумент. Variant specifying rate, at which the balance declines. Якщо його не вказано, приймається значення 2 (метод подвійного зменшення). |
Примітки
Методом подвійного зменшення залишку обчислюється амортизація із використанням збільшеної відсоткової ставки. Амортизація є найбільшою в першому періоді, а у наступних періодах її значення зменшується.
Аргументи термінів і термінів мають виражатися в тих самих одиницях. Наприклад, якщо життя надається місяцями, період також має бути задано місяцями. Усі аргументи мають бути додатніми числами.
Для обчислення амортизації за вказаний період функція DDB використовує таку формулу:
Амортизація / період = ((вартість – зал_вартість) * фактор) / термін експлуатації
Приклад
Примітка.: У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі використано функцію 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) & "."
