Отнася се за
Access за 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."

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

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

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