Funkce SLN

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

Potřebujete další pomoc?

Rozšiřte své dovednosti s Office
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.

Děkujeme vám za váš názor! Pravděpodobně bude užitečné, když vás spojíme s některým z našich agentů podpory Office.

×