Funktionen SLN

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

Syntaks

La ( Købspris; restværdi; levetid )

Funktionen La har følgende argumenter:

Argument

Beskrivelse

pris

Påkrævet. Dobbelt angivelse af den oprindelige omkostning for aktivet.

restværdi;

Påkrævet. Dobbelt angivelse af aktivets værdi ved slutningen af dets brugbare levetid.

altid

Påkrævet. Dobbelt angivelse af længden på aktivets levetid.

Bemærkninger

Afskrivningsperioden skal udtrykkes i samme enhed som Life -argument. Alle argumenterne skal være positive tal.

Forespørgsels eksempler

Udtryk

Resultat

Vælg La ([LoanAmount], [LoanAmount] *. 1, 20) som Udtryk1 fra FinancialSample

Returnerer afskrivningen for en aktiv værdi som "LoanAmount" med en skrapværdi på 10%("LoanAmount" ganget med 0,1), som tager højde for aktivets levetid i 20 år.

Vælg La ([LoanAmount], 0, 20) som SLDepreciation fra FinancialSample;

Returnerer afskrivningen for en aktiv værdi som "LoanAmount" med en skrapværdi på $0, der overvejer, at 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 La til at returnere den lineære afskrivning for et aktiv i en enkelt periode, der har fået tildelt den oprindelige omkostning (InitCost), skrapværdien i slutningen af aktivets levetid (SalvageVal) og den samlede levetid for aktivet 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."

Bemærk!:  Denne side er oversat ved hjælp af automatisering og kan indeholde grammatiske fejl og unøjagtigheder. Det er vores hensigt, at dette indhold skal være nyttigt for dig. Var disse oplysninger nyttige? Her er artiklen på engelsk, så du kan sammenligne.

Udvid dine Office-færdigheder
Gå på opdagelse i kurser
Få nye funktioner først
Bliv Office Insider