Contenido
Sub EjemploAmorLinc()
Dim cost As Double
Dim datePurchased As Date
Dim firstPeriod As Date
Dim salvage As Double
Dim period As Integer
Dim rate As Double
Dim basis As Integer
Dim amortization As Double
' Configuración de los valores
cost = 10000 ' Costo del activo
datePurchased = DateSerial(2022, 1, 1) ' Fecha de compra (1 de enero de 2022)
firstPeriod = DateSerial(2022, 12, 31) ' Fin del primer periodo (31 de diciembre de 2022)
salvage = 1000 ' Valor de rescate
period = 1 ' Periodo para el cual se realiza el cálculo
rate = 0.1 ' Tasa de amortización de 10%
basis = 0 ' Base US (NASD) 30/360
' Uso de la función AmorLinc
amortization = Application.WorksheetFunction.AmorLinc(cost, datePurchased, firstPeriod, salvage, period, rate, basis)
' Mostrar el resultado de la amortización
MsgBox "La amortización para el periodo es: " & amortization
End Sub
En este ejemplo, se configuran varios parámetros y luego se utiliza la función AmorLinc para calcular la amortización para el periodo dado. Finalmente, el resultado se muestra usando un MsgBox.
Recuerda que los valores utilizados en este ejemplo son ilustrativos y deberás ajustarlos a tu caso específico. La fecha debe ser proporcionada en un formato que Excel pueda entender (en este caso se usa DateSerial para generar la fecha) y los valores numéricos deben ajustarse a la moneda y las convenciones de tu contexto financiero.