Vrátí hodnotu Typu Double určující přímé odepisování aktiva pro jedno období.
Syntaxe
ZŮSTATEK( náklady, zůstatek, životnost )
FunkceLN má následující argumenty:
Argument |
Popis |
Náklady |
Povinný argument. Double specifying initial cost of the asset. |
zůstatek |
Povinný argument. Double specifying value of the asset at the end of its useful life. |
životnost |
Povinný argument. Double specifying length of the useful life of the asset. |
Poznámky
Odpisová doba se musí vyjádřit 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í odpis aktiva o hodnotě LoanAmount, se zůstatnou hodnotou 10 %("Částka Půjčky" vynásobená 0,1), s ohledem na životnost aktiva na 20 let. |
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
Vrátí odpis aktiva s hodnotou "Částka_půjčky" se zůstatkovou hodnotou 0 Kč, 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.
V tomto příkladu se funkce ODPIS.ODPIS.VÝNOSU používá k vrácení přímého odpisu aktiva pro jedno období, které je dané počátečními náklady aktiva (InitCost), zůstatkové hodnoty na konci životnosti aktiva (SalvageVal) a celkovou životnost 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."