SLN-funktio

Tärkeää: Tämä on artikkeli on käännetty koneellisesti. Lue vastuuvapauslauseke. Tämän artikkelin englanninkielinen versio on täällä .

Palauttaa tietotyypin kaksinkertainen, joka määrittää sijoituksen tasapoiston yhdeltä kaudelta.

Syntaksi

SLN( kustannus, loppuarvo, aika )

STP -funktio on seuraavat argumentit:

Argumentti

Kuvaus:

kustannus

Pakollinen. Kaksinkertainen, joka määrittää sijoituksen alkuperäisen hankintahinnan.

loppuarvo

Pakollinen. Kaksinkertainen, joka määrittää sijoituksen arvon sen käyttöajan lopussa.

aika

Pakollinen. Kaksinkertainen, joka määrittää sijoituksen käyttöajan pituuden.


Huomautuksia

Poistokausi on ilmaistava samana yksikkönä kuin aika- argumentti. Kaikkien argumenttien on oltava positiivisia lukuja.

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 tasapoisto yhdelle ajanjaksolle. Annettuna on sijoituksen alkuperäinen hankintahinta (InitCost), jäännösarvo sijoituksen käyttöiän lopussa (SalvageVal) ja sijoituksen kokonaisikä vuosissa (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: Konekäännöksestä ilmoittava vastuusvapauslauseke: Tämä artikkeli on käännetty tietokonejärjestelmällä, eikä kieliasiantuntija ole muokannut sitä. Microsoft tarjoaa nämä konekäännökset avuksi muille kuin englantia puhuville käyttäjille, jotta he saavat lisätietoja Microsoftin tuotteista, palveluista ja tekniikoista. Koska artikkeli on koneellisesti käännetty, se saattaa sisältää sanasto-, lauseoppi- ja kielioppivirheitä.

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ä.

×