SLN-funktio

Palauttaa kaksinkertaisen arvon, joka määrittää yksittäisen kauden sijoituksen tasa poiston.

Syntaksi

SLN ( kustannukset, loppu arvo, elin aika )

SLN -funktiolla on seuraavat argumentit:

Argumentti

Kuvaus

kustannus

Pakollinen. Kaksinkertainen määrittää sijoituksen alku kustannukset.

loppu arvo

Pakollinen. Kaksinkertainen arvo, joka määrittää hyödykkeen arvon sen käyttöiän lopussa.

elämän

Pakollinen. Kaksinkertainen määrittää sijoituksen käyttöiän pituuden.

Huomautuksia

Poisto aika on ilmaistava samassa yksikössä kuin elin kaariargumentti. Kaikkien argumenttien on oltava positiivisia lukuja.

Kysely esimerkit

Lauseke

Tulokset

Valitse SLN ([laina määrä], [laina-arvo] *. 1; 20) Lauseke1 alkaen FinancialSample;

Palauttaa arvon "laina summa" arvon, jonka jäännös arvo on 10%("laina summa" kerrottuna 0,1), kun otetaan huomioon, että hyödykkeen käyttöikä on 20 vuotta.

Valitse SLN ([laina-arvo]; 0; 20).

Palauttaa arvon, jonka arvo on arvo "laina summa", ja jonka jäännös arvona on $0, kun otetaan huomioon, että hyödykkeen käyttöikä on 20 vuotta. Tulokset näkyvät sarakkeessa Slpoistot.

VBA-esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä SLN -funktion avulla palautetaan sijoituksen tasa poisto, kun omaisuus erän Alkuperäinen kustannus (InitCost), jäännös arvo omaisuus erän käyttöiän lopussa (SalvageVal) ja sijoituksen kokonaiskesto vuosina (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."

Huomautus:  Tämä sivu on käännetty automaation avulla, ja siinä saattaa olla kielioppivirheitä tai epätarkkuuksia. Tarkoitus on, että sisällöstä on sinulle hyötyä. Kerrotko meille, oliko tiedoista hyötyä? Tästä pääset artikkelin englanninkieliseen versioon.

Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×