SLN, funksjon

Returnerer et langt flyt tall som angir den lineære avskrivningen for et aktivum for en enkelt periode.

Syntaks

LINAVS ( kostnad; rest verdi; leve tid )

LINAVS -funksjonen har disse argumentene:

Argument

Beskrivelse

kostnad

Obligatorisk. Langt flyt tall som angir opprinnelig kostnad for aktiva.

rest verdi;

Obligatorisk. Langt flyt tall som angir anleggs MIDlets verdi ved slutten av dets økonomiske leve tid.

batteri

Obligatorisk. Langt flyt tall som angir lengden på aktivumets økonomiske leve tid.

Merknader

Avskrivnings perioden må være uttrykt i samme enhet som leve tidenargument. Alle argumentene må være positive tall.

Spørrings eksempler

Uttrykk

Resultater

Velg LINAVS ([LoanAmount]; [LoanAmount] *. 1; 20) som Uttr1 FROM FinancialSample;

Returnerer avskrivningen for en anleggs middel verdi som "LoanAmount", med en skrap verdi på 10%("LoanAmount" multiplisert med 0,1), noe som vurderer at aktivaets økonomiske leve tid er 20 år.

Velg LINAVS ([LoanAmount]; 0; 20) som SLDepreciation fra FinancialSample;

Returnerer avskrivningen for en anleggs middel verdi som "LoanAmount", med en skrap verdi på $0, som vurderer den økonomiske leve tiden for aktivaet til 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 av et aktivum for en enkelt periode som har aktivumets opprinnelige leve tid (InitCost), REST verdi på slutten av anleggs MIDlets leve tid (SalvageVal) og samlet leve tid 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!:  Denne siden er oversatt gjennom automatisering og kan inneholde grammatiske feil eller unøyaktigheter. Formålet vårt er at innholdet skal være nyttig for deg. Kan du fortelle oss om informasjonen var nyttig? Her er den engelske artikkelen for referanse.

Bli bedre på Office
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×