Връща стойност от тип Double, указваща праволинейна амортизация на актив за единичен период.
Синтаксис
SLN( стойност; ликвидационна_стойност; живот )
Функцията SLN има следните аргументи:
|
Аргумент |
Описание |
|
разход |
Задължително. Стойност от тип Double , указваща началната стойност на актива. |
|
Спасяване |
Задължително. Стойност от тип Double , указваща стойността на актива в края на полезния му живот. |
|
времетраене |
Задължително. Стойност от тип Double , указваща продължителността на полезния живот на актива. |
Забележки
Периодът на амортизация трябва да бъде изразен в същата единица като животаргумент. Всички аргументи трябва да са положителни числа.
Примери за заявки
|
Израз |
Резултати |
|
SELECT SLN([Сума_за_заеми][Сума_за_заеми]*.1;20) AS Израз1 FROM FinancialSample; |
Връща амортизацията за актив, значен като "Сума на заема", със остатъчна стойност 10%("Сума на кредита", умножена по 0,1), като се има предвид полезният живот на актива за 20 години. |
|
SELECT SLN([сума_за_заеми];0,20) AS SLDepreciation FROM FinancialSample; |
Връща амортизацията за актив, значен като "LoanAmount", със остатъчна стойност от $0, като се има предвид полезният живот на актива за 20 години. Резултатите се показват в SLDepreciation на колоната. |
Пример на VBA
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример използва SLN функцията, за да върне праволинейната амортизация на актив за един период при зададена първоначална стойност на актива (InitCost), остатъчната стойност в края на полезния живот на актива (SalvageVal) и общия живот на актива в години (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."
