Преминаване към основното съдържание

Функция SLN

Връща стойност от тип Double, указваща линейната амортизация на актив за един период.

Синтаксис

SLN ( Цена; спасяване; живот )

Функцията SLN има следните аргументи:

Аргумент

Описание

разход

Задължително. Двукратно Задаване на първоначални разходи за актива.

остатъчна

Задължително. Двойно указване на стойността на актива в края на неговия полезен живот.

живот

Задължително. Двойно указване на продължителността на полезния живот на актива.

Забележки

Периодът на амортизация трябва да бъде изразен в същата единица, в която еаргументLife . Всички аргументи трябва да са положителни числа.

Примери за заявки

Израз

Резултати

Изберете SLN ([LoanAmount]; [LoanAmount] *. 1, 20) като Израз1 FROM FinancialSample;

Връща амортизацията на актив, който е оценен като "LoanAmount", със остатъчна стойност от 10% "LoanAmount", умножена по 0,1), като се има предвид полезният живот на актива за 20 години.

Изберете SLN ([LoanAmount]; 0; 20) като SLDepreciation от 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."

Забележка:  Тази страница е преведена чрез автоматизация и може да съдържа граматически грешки и несъответствия. Нашата цел е това съдържание да ви бъде полезно. Можете ли да ни кажете дали информацията е била полезна за вас? Ето статията на английски за справка.

Разширете уменията си в Office
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×