Devuelve un Doble que especifica la amortización por método directo de un activo durante un único período.
Sintaxis
SLN (costo, salvamento, vida)
La función SLN tiene los siguientes argumentos:
| Argumento | Descripción |
|---|---|
| costo | Obligatorio. Doble especificación del coste inicial del activo. |
| Salvamento | Obligatorio. Doble especificación del valor del activo al final de su vida útil. |
| Vida | Obligatorio. Doble especificación de la duración de la vida útil del activo. |
Observaciones
El período de depreciación debe expresarse en la misma unidad que el argumento de vida. Todos los argumentos deben ser números positivos.
Ejemplos de consulta
| Expresión | Resultados |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; | Devuelve la amortización de un activo valorado como "LoanAmount", con un valor de rescate del 10 % ("LoanAmount" multiplicado por 0,1), considerando que la vida útil del activo es de 20 años. |
| SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; | Devuelve la amortización de un activo valorado como "LoanAmount", con un valor de rescate de 0 $, considerando que la vida útil del activo es de 20 años. Los resultados se muestran en la columna SLDepreciation. |
Ejemplo VBA:
Nota
Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se utiliza la función SLN para devolver la amortización por línea recta de un activo durante un único periodo dado el coste inicial del activo (InitCost), el valor de rescate al final de su vida útil (SalvageVal), y la vida total del activo en años (LifeTime).
Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost " & _
"of the asset?")
SalvageVal = InputBox("What's the asset's value " & _
"at the end of its useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."