Returnerer et langt flyttall som angir den lineære avskrivningen for et aktivum for én enkelt periode.
Syntaks
SLN( kostnad; restverdi; levetid )
SLN-funksjonen har følgende argumenter:
Argument |
Beskrivelse |
kostnad |
Obligatorisk. Langt flyttall som angir opprinnelige kostnader for aktivumet. |
Berging |
Obligatorisk. Langt flyttall som angir verdien for aktivumet på slutten av levetiden. |
tid |
Obligatorisk. Langt flyttall som angir lengden på aktivumets økonomiske levetid. |
Merknader
Avskrivningsperioden må uttrykkes i samme enhet som levetidenargument. Alle argumenter må være positive tall.
Spørringseksempler
Expression |
Resultater |
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; |
Returnerer avskrivningen for et aktivum som er verdsatt som "LoanAmount", med en restverdi på 10 %("LoanAmount" multiplisert med 0,1), med tanke på at aktivumets økonomiske levetid er 20 år. |
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
Returnerer avskrivningen for et aktivum som er verdsatt som "LoanAmount", med en restverdi på $ 0, med tanke på aktivumets nyttige levetid til å være 20 år. Resultatene vises i kolonnen SLDepreciation. |
VBA-eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker SLN-funksjonen til å returnere den lineære avskrivningen for et aktivum i én periode, gitt aktivumets opprinnelige kostnad (InitCost), restverdien ved slutten av aktivumets økonomiske levetid (SalvageVal), og aktivumets totale levetid 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."