Devuelve un tipo de datos Double que especifica la depreciación de un activo durante un período de tiempo específico mediante el método de disminución doble del saldo u otro método que especifique.
Sintaxis
DDB( costo, valor_residual, vida, período [, factor] )
La sintaxis de la función DDB tiene estos argumentos:
|
Argumento |
Descripción |
|
coste |
Requerido. Doble especificación del costo inicial del bien. |
|
Salvamento |
Requerido. Doble especificación del valor del bien al final de su vida útil. |
|
duración |
Requerido. Doble especificación de la duración útil del bien. |
|
Período |
Requerido. Doble especificación del período para el que se calcula la depreciación de activos. |
|
Factor |
Opcional. Variant que especifica la tasa en la que se declina el saldo. Si se omite, se supone 2 (método de disminución doble). |
Observaciones
El método de depreciación por doble disminución del saldo calcula la depreciación a una tasa acelerada. La depreciación es más alta durante el primer período y disminuye en períodos sucesivos.
Los argumentos vida y período deben expresarse en las mismas unidades. Por ejemplo, si la vida se da en meses, el período también debe darse en meses. Todos los argumentos deben ser números positivos.
La función BDDB usa la siguiente fórmula para calcular la depreciación de un período determinado:
Amortización / período = ((costo – valor_residual) * factor) / vida
Ejemplo
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se usa la función BDDB para devolver la depreciación de un bien durante un período especificado, dado el costo inicial (InitCost), el valor residual al final de la vida útil del bien (SalvageVal), la vida total del bien en años (LifeTime) y el período en años para los que se calcula la depreciación (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) & "."
