Applies ToAccess för Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Returnerar ett värde av datatyp double som anger linjär avskrivning för en tillgång under en enda period.

Syntax

SLN( kostnad; restvärde; livslängd )

Funktionen SLN har följande argument:

Argument

Beskrivning

kostnad

Obligatoriskt. Double (Dubbel ) anger initialkostnaden för tillgången.

Bärgning

Obligatoriskt. Double (Dubbel ) anger tillgångens värde i slutet av dess livslängd.

tid

Obligatoriskt. Double (Dubbel ) anger tillgångens livslängd.

Kommentarer

Avskrivningsperioden måste uttryckas i samma enhet som livslängdenargument. Alla argument måste vara positiva tal.

Frågeexempel

Uttryck

Resultat

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

Returnerar avskrivningen för en tillgång som värderas som "Lånebelopp", med ett restvärde på 10 %("Lånebelopp" multiplicerat med 0,1), med tanke på tillgångens livslängd på 20 år.

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

Returnerar avskrivningen för en tillgång som värderas som "Lånebelopp", med ett restvärde på 0 USD, med tanke på tillgångens livslängd på 20 år. Resultatet visas i kolumnen SLDepreciation.

VBA-exempel

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

I det här exemplet används funktionen SLN för att returnera en tillgångs linjära avskrivning under en enda period med tanke på tillgångens initialkostnad (InitCost), restvärdet i slutet av tillgångens livslängd (SalvageVal) och tillgångens totala livslängd 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."

Behöver du mer hjälp?

Vill du ha fler alternativ?

Utforska prenumerationsförmåner, bläddra bland utbildningskurser, lär dig hur du skyddar din enhet med mera.

Communities hjälper dig att ställa och svara på frågor, ge feedback och få råd från experter med rika kunskaper.