Saltar al contenido principal

SLN (función)

Devuelve un tipo de datos Double que especifica la amortización por línea recta de un activo en un solo período.

Sintaxis

Sln ( costo, Valor_residual, vida )

La función sln tiene los siguientes argumentos:

argumento

Descripción

coste

Obligatorio. Valor de tipo Double que indica el costo inicial del activo.

Valor_residual

Obligatorio. Valor de tipo Double que indica el valor del activo al final de su vida útil.

comportamiento

Obligatorio. Valor de tipo Double que especifica la duración de la vida útil del activo.

Observaciones

El período de amortización debe expresarse en la misma unidad que elargumento de vida . Todos los argumentos deben ser números positivos.

Ejemplos de consultas

Expresión

Resultados

Seleccione SLN ([LoanAmount], [LoanAmount] *. 1, 20) como expr1 FROM FinancialSample;

Devuelve la amortización de un activo valorado como "LoanAmount", con un valor residual de 10%("LoanAmount" multiplicado por 0,1), considerando que la vida útil del activo es de 20 años.

Seleccione SLN ([LoanAmount], 0, 20) como SLDepreciation de FinancialSample;

Devuelve la amortización de un activo valorado como "LoanAmount", con un valor residual de $0, considerando que la vida útil del activo es de 20 años. Los resultados se muestran en la columna SLDepreciation.

Ejemplo de VBA

Nota: En los siguientes ejemplos se muestra 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 del programador en la lista desplegable situada junto a Buscar y escriba uno o más términos en el cuadro de búsqueda.

En este ejemplo se usa la función sln para devolver la amortización por línea directa de un activo en un único período, dados el costo inicial del activo (InitCost), el valor residual al final de la vida útil del activo (SalvageVal) y la vida útil 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."

Nota:  Esta página se ha traducido mediante un sistema automático y es posible que contenga imprecisiones o errores gramaticales. Nuestro objetivo es que este contenido le resulte útil. ¿Podría decirnos si la información le resultó útil? Aquí puede consultar el artículo en inglés.

Ampliar sus conocimientos de Office
Explorar los cursos
Obtener nuevas características primero
Únase a los participantes de Office Insider