Връща стойност от тип 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, SalvageValDim MonthLife, LifeTime, PDeprConst 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _ Format(PDepr, Fmt) & " per year."
