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:

• Abrir el editor de VBA presionando `ALT + F11` en Excel.
• Crear un nuevo módulo o usar uno existente en el proyecto VBA en el que estés trabajando.
• Dentro del módulo, crea una función o subrutina para encapsular tu código.
• 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

Access

Power BI

Ayúdanos a hacer crecer el proyecto