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