La función DDB en VBA es una implementación de la función de Depreciación por Doble Disminución de Saldo que se encuentra en Microsoft Excel. Esta función calcula la depreciación de un activo para un periodo específico utilizando el método de doble saldo decreciente o algún otro método que desees especificar.

Ejemplo

Sub CalcularDepreciacionDDB()
    ' Definir las variables
    Dim CostoInicial As Double
    Dim ValorSalvamento As Double
    Dim VidaUtil As Double
    Dim Periodo As Double
    Dim FactorDepreciacion As Double
    Dim Depreciacion As Double
    
    ' Asignar valores a las variables
    CostoInicial = 10000 ' Costo del activo
    ValorSalvamento = 1000 ' Valor de salvamento al final de la vida útil
    VidaUtil = 5 ' Vida útil en años
    Periodo = 1 ' Año para el cual se quiere calcular la depreciación
    FactorDepreciacion = 2 ' Factor de depreciación (2 para doble disminución)
    
    ' Usar la función DDB para calcular la depreciación
    Depreciacion = Application.WorksheetFunction.DDB(CostoInicial, ValorSalvamento, VidaUtil, Periodo, FactorDepreciacion)
    
    ' Mostrar el resultado
    MsgBox "La depreciación para el periodo " & Periodo & " es de: " & Depreciacion
End Sub

En este caso, estamos usando la función DDB para calcular la depreciación de un activo que cuesta $10,000, tiene un valor de salvamento de $1,000, una vida útil de 5 años, y queremos saber la depreciación para el primer año, utilizando un factor de depreciación de 2 que corresponde al método de doble disminución.

Para ejecutar tu macro, simplemente necesitas ir al editor de VBA (presiona ALT + F11 en Excel) y luego insertar un nuevo módulo donde puedas pegar y ejecutar este código.

Recuerda, este es solo un ejemplo y deberás ajustar los valores de las variables según los datos específicos del activo que estés evaluando.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto