¿Cómo usar la función WorksheetFunction.AmorLinc en VBA?

La función WorksheetFunction.AmorLinc en VBA es una función financiera que se utiliza para calcular la depreciación de un activo durante un periodo específico, basado en la amortización lineal. Es decir, es un método de amortización en el que el coste de un activo se deduce de manera equitativa a lo largo de la vida útil del activo. Para usar la función AmorLinc en VBA, necesitarás seguir estos pasos: 1. Abrir el editor de VBA presionando ALT + F11 en Excel. 2. Crear un nuevo módulo o usar uno existente en el proyecto VBA en el que estés trabajando. 3. Dentro del módulo, crea una función o subrutina para encapsular tu código. 4. Utiliza el objeto WorksheetFunction para acceder a AmorLinc. Aquí tienes los parámetros que la función AmorLinc requiere: Cost: El costo inicial del activo. DatePurchased: La fecha de compra del activo. FirstPeriod: La fecha que marca el final del primer periodo de amortización. Salvage: El valor de rescate del activo (valor al final de la vida útil). Period: El periodo para el cual se realiza el cálculo de la amortización. Rate: La tasa de amortización. Basis: La base de conteo de días que se utilizará (0 = US (NASD) 30/360, 1 = real/real, 2 = real/360, 3 = real/365, 4 = Europeo 30/360). Aquí hay un ejemplo de cómo podrías usar la función AmorLinc en VBA:

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.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Ayúdanos a hacer crecer el proyecto

Deja un comentario