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

Vráti hodnotu typu Double určujúcu rovnomerné odpisovanie majetku za jedno obdobie.

Syntax

SLN( cena; zostatok; životnosť )

Funkcia SLN obsahuje tieto argumenty:

Argument

Popis

náklady

Povinný argument. Dvojnásobok určujúci počiatočné náklady na majetok.

Zachrániť

Povinný argument. Dvojnásobok určujúci hodnotu majetku na konci jeho životnosti.

výdrž

Povinný argument. Double určujúce dĺžku doby použiteľnosti majetku.

Poznámky:

Obdobie odpisovania musí byť vyjadrené v tej istej jednotke ako životnýargument. Všetky argumenty musia byť kladné čísla.

Príklady dotazu

Výraz

Výsledky

SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;

Vráti odpis majetku oceneného ako "LoanAmount" s zostatkovou hodnotou 10%("LoanAmount" vynásobenou hodnotou 0,1), berúc do úvahy životnosť majetku na 20 rokov.

SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample;

Vráti odpis majetku oceneného ako "LoanAmount" s zostatkovou hodnotou 0 $, berúc do úvahy životnosť majetku na 20 rokov. Výsledky sa zobrazia v stĺpci SLDepreciation.

Príklad jazyka VBA

Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.

V tomto príklade je funkcia SLN použitá na vrátenie rovnomerného odpisovania majetku za jedno obdobie vzhľadom na počiatočné náklady majetku (InitCost), zostatkovú hodnotu na konci životnosti majetku (SalvageVal) a celkovú životnosť majetku v rokoch (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."

Potrebujete ďalšiu pomoc?

Chcete ďalšie možnosti?

Môžete preskúmať výhody predplatného, prehľadávať školiace kurzy, naučiť sa zabezpečiť svoje zariadenie a ešte oveľa viac.

Komunity pomôžu s kladením otázok a odpovedaním na ne, s poskytovaním pripomienok a so získavaním informácií od odborníkov s bohatými znalosťami.