Funktionen LINAVSKR

Returnerar ett värde av data typen Double som anger den linjära avskrivningen för en till gång under en enskild period.

Syntax

LINAVSKR ( kostnad; restvärde; livs längd )

Funktionen LINAVSKR har följande argument:

Argument

Beskrivning

kostnad

Obligatoriskt. Double ange till gångens initial kostnad.

restvärde

Obligatoriskt. Dubbel Ange värde för till gången vid slutet av dess livs längd.

livräddnings

Obligatoriskt. Dubbel ange längden på till gångens nyttjande period.

Kommentarer

Avskrivnings perioden måste uttryckas i samma enhet somargument . Alla argument måste vara positiva tal.

Exempel på frågor

Uttryck

Resultat

SELECT LINAVSKR ([LoanAmount]; [LoanAmount] *. 1; 20) som Uttr1 FROM FinancialSample;

Returnerar avskrivningen för en till gång som värde "LoanAmount", med ett restvärde på 10%("LoanAmount" multiplicerat med 0,1), med tanke på att till gångens livs längd är 20 år.

SELECT LINAVSKR ([LoanAmount]; 0; 20) som SLDepreciation FROM FinancialSample;

Returnerar avskrivningen för en till gång med värdet "LoanAmount", med ett restvärde på $0, med beaktande av att till gångens livs längd är 20 år. Resultaten 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 LINAVSKR för att returnera den linjära avskrivningen för en till gång under en enda period med till gångens initiala kostnad (InitCost), restvärdet i slutet av till gångens livs längd (SalvageVal) och den totala livs längden på till gången 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."

Obs!:  Den här sidan har översatts automatiskt och kan innehålla grammatiska fel och andra felaktigheter. Vår avsikt är att innehållet ska vara användbart för dig. Skulle du vilja svara på om informationen var till hjälp? Här är den engelska artikeln som en referens.

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