Vrátí hodnotu typu Double určující lineární odpis majetku pro jedno období.
Syntaxe
SLN( náklady, zůstatky, životnost )
Funkce SLN má tyto argumenty:
Argument |
Popis |
Náklady |
Povinný argument. Double určující počáteční náklady na aktivum. |
Zachránit |
Povinný argument. Double určující hodnotu aktiva na konci jeho životnosti. |
výdrž |
Povinný argument. Double určující délku životnosti aktiva. |
Poznámky
Odpisová doba musí být vyjádřena ve stejné jednotce jako životnostArgument. Všechny argumenty musí být kladná čísla.
Příklady dotazů
Výraz |
Výsledky |
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; |
Vrátí odpisy aktiva oceňovaného jako "LoanAmount" s zůstatkovou hodnotou 10%("LoanAmount" vynásobenou 0,1), přičemž životnost aktiva je 20 let. |
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
Vrátí odpisy aktiva ohodnoceného jako "LoanAmount" se zůstatkovou hodnotou 0 USD s ohledem na životnost aktiva na 20 let. Výsledky se zobrazí ve sloupci SLDepreciation. |
Příklad jazyka VBA
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad používá funkci SLN k vrácení lineárního odpisu aktiva za jedno období vzhledem k počátečním nákladům aktiva (InitCost), zůstatkové hodnotě na konci životnosti aktiva (SalvageVal) a celkové životnosti aktiva v letech (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."