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, 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."
