Applies ToAccess pro Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.