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

Vrne dvojno število, ki določa linearno amortizacijo sredstva za eno obdobje.

Sintaksa

SLN( stroški, vrednost_po_amor, št_obdobij, št_obdobij )

Funkcija SLN ima te argumente:

Argument

Opis

strošek

Obvezen. Dvojno število, ki določa začetno ceno sredstva.

Odpadna

Obvezen. Dvojno število, ki določa vrednost sredstva na koncu njegove življenjske dobe.

čas delovanja

Obvezen. Dvojno število, ki določa dolžino življenjske dobe sredstva.

Opombe

Amortizacijsko obdobje mora biti izraženo v isti enote kotargument. Vsi argumenti morajo biti pozitivna števila.

Primeri poizvedb

Izraz

Rezultati

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

Vrne amortizacijo za sredstvo, ki je pomnoženo kot »Znesek_posojila«, z vrednostjo_po_amor 10 %(»Znesek_posojila« pomnoženo z 0,1) glede na to, da je življenjska doba sredstva 20 let.

SELECT SLN([Znesek_posojila],0,20) KOT SLDepreciation FROM FinancialSample;

Vrne amortizacijo za sredstvo, ki je v vrednosti »LoanAmount« s preostalo vrednostjo 0 $, glede na to, da je življenjska doba sredstva 20 let. Rezultati so prikazani v stolpcu SLDepreciation.

primer VBA

Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

V tem primeru je uporabljena funkcija SLN za vrnitev linearne amortizacije sredstva za eno obdobje, če je bila vrnjena začetna cena sredstva (InitCost), preostala vrednost na koncu življenjske dobe sredstva (SalvageVal) in skupna življenjska doba sredstva v letih (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."

Ali potrebujete dodatno pomoč?

Ali želite več možnosti?

Raziščite ugodnosti naročnine, prebrskajte izobraževalne tečaje, preberite, kako zaščitite svojo napravo in še več.

Skupnosti vam pomagajo postaviti vprašanja in odgovoriti nanje, posredovati povratne informacije in prisluhniti strokovnjakom z bogatim znanjem.