La función SLN en VBA, que proviene del inglés «Straight Line Depreciation» (Depreciación en Línea Recta), permite calcular la depreciación de un activo para un período utilizando el método de línea recta. Este método asume que el valor del activo disminuirá de manera uniforme durante su vida útil.

Sintaxis básica

SLN(Cost As Double, Salvage As Double, Life As Double) As Double

• Cost es el costo inicial del activo.
• Salvage es el valor residual del activo al final de su vida útil.
• Life es la vida útil del activo (en períodos, usualmente años).

La función SLN devuelve la depreciación para un solo período.

Ejemplo

Sub CalculateDepreciation()
    Dim initialCost As Double
    Dim residualValue As Double
    Dim assetLife As Double
    Dim depreciation As Double
    
    ' Valores de ejemplo
    initialCost = 10000 ' Costo inicial del activo
    residualValue = 1000 ' Valor residual después de la vida útil
    assetLife = 5 ' Vida útil del activo en años
    
    ' Calculamos la depreciación usando la función SLN de VBA
    depreciation = SLN(initialCost, residualValue, assetLife)
    
    ' Mostramos el resultado en un mensaje
    MsgBox "La depreciación anual es: " & depreciation
End Sub

Este código VBA creará un procedimiento Sub que calcula y muestra un mensaje con la depreciación anual de un activo utilizando el método de línea recta. Los valores inicialmente establecidos en initialCost, residualValue, y assetLife son solo ejemplos y deberían ser reemplazados por los valores reales del activo que vas a depreciar.

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