Contenido
Sub CalcularAmortizacionDegresiva()
' Definir variables
Dim costo As Double
Dim fechaCompra As Date
Dim primerPeriodo As Date
Dim periodo As Integer
Dim tasa As Double
Dim base As Double
Dim depreciacion As Double
' Inicializar variables
costo = 10000 ' El costo del activo
fechaCompra = #1/1/2023# ' La fecha de compra del activo
primerPeriodo = #12/31/2023# ' Fin del primer periodo fiscal
periodo = 1 ' El periodo de depreciación que quieres calcular
tasa = 0.1 ' Tasa de depreciación
base = 1 ' Períodos por año
' Calcular la depreciación utilizando la función WorksheetFunction.AmorDegrc
depreciacion = Application.WorksheetFunction.AmorDegrc(cost:=costo, datePurchased:=fechaCompra, firstPeriod:=primerPeriodo, salvage:=0, period:=periodo, rate:=tasa, basis:=base)
' Mostrar resultado
MsgBox "La depreciación para el periodo " & periodo & " es: " & depreciacion
End Sub
Lo que hace este código es definir los parámetros requeridos y luego llama a WorksheetFunction.AmorDegrc con esos parámetros para calcular la depreciación.
Aquí tienes la descripción de los parámetros de AmorDegrc:
cost (obligatorio): El costo inicial del activo.
datePurchased (obligatorio): La fecha de compra del activo.
firstPeriod (obligatorio): El fin del primer periodo fiscal.
salvage (obligatorio): El valor de desecho o valor residual del activo al final de la vida útil.
period (obligatorio): El periodo para el cual se desea calcular la depreciación.
rate (obligatorio): La tasa de depreciación.
basis (obligatorio): La base de días a usar en el cálculo: 0 para el método de 30 días en el mes / 360 días en el año (US NASD), 1 para el método real (número real de días), etc.
Por favor, ten en cuenta que debido a la naturaleza de la función AmorDegrc que está diseñada para el contexto francés, es importante comprender completamente la función y los cálculos que requiere antes de usarla en situaciones financieras reales. Además, el contexto legislativo de las depreciaciones puede cambiar y es importante que estés al tanto de la normativa actual para el cálculo de depreciaciones.