Returnerer et langt flyttall som angir den lineære avskrivningen for et aktivum i én enkelt periode.
Syntaks
LINAVS(kostnad; restverdi; levetid)
LINAVS-funksjonen har disse argumentene:
| Argumenter | Beskrivelse |
|---|---|
| koste | Obligatorisk. Dobbelt som angir den opprinnelige kostnaden for aktivumet. |
| berging | Obligatorisk. Dobbelt som angir verdien for aktivumet ved slutten av dets økonomiske levetid. |
| liv | Obligatorisk. Dobbelt som angir lengden på aktivumets økonomiske levetid. |
Merknader
Avskrivingstiden må uttrykkes i samme enhet som livsargumentet. Alle argumenter må være positive tall.
Eksempler på spørringer
| Uttrykk | Resultater |
|---|---|
| SELECT LINAVS([LoanAmount],[LoanAmount]*.1,20) AS Uttr1 FROM FinancialSample; | Returnerer avskrivningen for et aktivum verdsatt som "Lånebeløp" med en restverdi på 10 % ("Lånebeløp" multiplisert med 0,1), med tanke på at aktivumets økonomiske levetid er 20 år. |
| VELG LINAVS([Lånebeløp],0,20) AS LINAVS.FRA-finansutvalg; | Returnerer avskrivningen for et aktivum som er verdsatt som "Lånebeløp", med en restverdi på 0 kr, idet aktivumets økonomiske levetid er 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.
I dette eksemplet brukes LINAVS-funksjonen til å returnere den lineære avskrivningen for et aktivum i én enkelt periode, angitt i anleggsmiddelets 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."