Devuelve un valor 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 o algún otro método que especifique.
Sintaxis
DDB( costo, rescate, vida, punto [ ,factor] )
La sintaxis de la función DDB tiene estos argumentos:
|
argumento |
Descripción |
|
coste |
Obligatorio. Especificar dos vez el costo inicial del activo. |
|
recuperar |
Obligatorio. Especificar dos vez el valor del activo al final de su vida útil. |
|
vida |
Obligatorio. Doble especificación de la duración útil del activo. |
|
punto |
Obligatorio. Período de especificación doble para el que se calcula la depreciación de activos. |
|
factor |
Opcional. Variante que especifica la tasa a la que disminuye el saldo. Si se omite, se supone 2 (método de declinació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 argumentosde vida y punto deben expresarse en las mismas unidades. Por ejemplo, si la vida se da en meses, el período también se debe dar en meses. Todos los argumentos deben ser números positivos.
La función DDB usa la siguiente fórmula para calcular la depreciación durante un período determinado:
Depreciación / período = ((costo – recuperación) * factor) / vida
Ejemplo
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo 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 junto a Buscar y escriba uno o más términos en el cuadro de búsqueda.
En este ejemplo se usa la función DDB para devolver la depreciación de un activo durante un período especificado dado el costo inicial (InitCost), el valor de recuperación al final de la vida útil del activo (SalvageVal), la vida total del activo 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) & "."
