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