Applies ToAccess para Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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 = ((costovalor_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, DeprConst 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?")LoopLifeTime = 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.")LoopDepr = DDB(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & _Format(Depr, Fmt) & "."

¿Necesita más ayuda?

¿Quiere más opciones?

Explore las ventajas de las suscripciones, examine los cursos de aprendizaje, aprenda a proteger su dispositivo y mucho más.

Las comunidades le ayudan a formular y responder preguntas, enviar comentarios y leer a expertos con conocimientos extensos.