Applies ToAccess за Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Връща стойност от тип 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."

Нуждаете ли се от още помощ?

Искате ли още опции?

Разгледайте ползите от абонамента, прегледайте курсовете за обучение, научете как да защитите устройството си и още.

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