SLN

Vrátí hodnotu typu Double určující lineární odpis aktiva pro jedno období.

Syntaxe

SLN ( náklady, zůstatková_hodnota, životnost )

Funkce sln obsahuje následující argumenty:

Argument

Popis

Náklady

Povinný argument. Dvojnásobná Identifikace počátečních nákladů na majetek.

Cena

Povinný argument. Dvojité určení hodnoty aktiva na konci jeho vhodné životnosti.

skladovatelnosti

Povinný argument. Dvojnásobná doba životnosti aktiva.

Poznámky:

Období odpisování se vyjadřuje ve stejné jednotce jakoArgumentživotního cyklu . Všechny argumenty musí být kladná čísla.

Příklady dotazů

Výraz

Výsledky

Vyberte možnost SLN ([LoanAmount], [LoanAmount] *. 1,1) jako Výraz1 FROM FinancialSample;

Vrátí hodnotu odpisu aktiva oceněného jako "LoanAmount" s hodnotou při vyřazení 10%("LoanAmount" vynásobenou 0,1), což zohledňuje životnost aktiva do 20 let.

Vyberte SLN ([LoanAmount], 0, 20) jako SLDepreciation z FinancialSample;

Vrátí odpis dlouhodobého majetku oceněného jako "LoanAmount" s hodnotou při vyřazení $0, což zohledňuje životnost aktiva do 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 sln používá k vrácení lineárního odpisu aktiva za jedno období, které udává počáteční náklady majetku (InitCost), hodnotu při vyřazení na konci užitečné ž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."

Poznámka:  Tato stránka byla přeložena automaticky a může obsahovat gramatické chyby nebo nepřesnosti. Naším cílem je to, aby pro vás byl její obsah užitečný. Mohli byste nám prosím dát vědět, jestli vám informace pomohly? Pokud chcete, můžete se podívat na anglickou verzi článku.

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.

×