Contenido
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.
Aquí te dejo un ejemplo de cómo usar la función DDB dentro de VBA:
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.