SLN, funktion

Returnerar en Double-värdeminskning som anger den raka avskrivningen för en tillgång under en enskild period.

Syntax

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

Funktionen SLN har följande argument:

Argument

Beskrivning

kostnad

Obligatoriskt. Double specifying initial cost of the asset.

restvärde

Obligatoriskt. Dubbelklicka på värdet för tillgången i slutet av dess livslängd.

livslängd

Obligatoriskt. Double anger hur lång tillgångens livslängd är.

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 Expr1 FROM FinancialSample;

Returnerar avskrivningen för en tillgångsvärde som "Lånebelopp", med restvärdet 10 %("Lånebelopp" multiplicerat med 0,1), med hänsyn till tillgångens livslängd till 20 år.

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

Returnerar avskrivningen för en tillgångsvärde som "Lånebelopp" med restvärdet 0 kr, med hänsyn till tillgångens livslängd i 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.

Det här exemplet använder funktionen SLN för att returnera den raka avskrivningen för en tillgång under en enskild period givet tillgångens initiala kostnad (InitCost), restvärdet i slutet av tillgångens livslängd (SalvageVal) och tillgångens totala livslängd i år (LifeTime).

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, PDepr
Const 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 If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."

Behöver du mer hjälp?

Utöka dina Office-kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×