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

Returnerer en dobbelt, der angiver den lineære afskrivning for et aktiv for en enkelt periode.

Syntaks

SLN( købspris;restværdi;levetid )

Funktionen SLN har disse argumenter:

Argument

Beskrivelse

pris

Påkrævet. Dobbelt reelt tal , der angiver aktivets startpris.

Bjærgning

Påkrævet. Dobbelt reelt tal , der angiver aktivets værdi ved slutningen af dets levetid.

levetid

Påkrævet. Dobbelt reelt tal, der angiver aktivets levetid.

Bemærkninger

Afskrivningsperioden skal udtrykkes i samme enhed som levetidenargument. Alle argumenter skal være positive tal.

Forespørgselseksempler

Udtryk

Resultater

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

Returnerer afskrivningen for et aktiv, der er værdiangivet som "LoanAmount", med en restværdi på 10 %("LoanAmount" ganget med 0,1), idet aktivets levetid i betragtning af aktivets levetid er 20 år.

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

Returnerer afskrivningen for et aktiv, der er værdianskrevet som "LoanAmount", med en restværdi på kr. 0, hvor aktivets levetid i betragtning af aktivets levetid er 20 år. Resultaterne vises i kolonnen SLDepreciation.

VBA-eksempel

Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

I dette eksempel bruges funktionen SLN til at returnere den lineære afskrivning på et aktiv i en enkelt periode på grund af aktivets startomkostninger (InitCost), restværdi ved aktivets levetid (SalvageVal) og aktivets samlede levetid i år (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."

Har du brug for mere hjælp?

Vil du have flere indstillinger?

Udforsk abonnementsfordele, gennemse kurser, få mere at vide om, hvordan du sikrer din enhed og meget mere.

Communities hjælper dig med at stille og besvare spørgsmål, give feedback og høre fra eksperter med omfattende viden.