Funktsioon SLN

Annab tulemuseks kahekordse väärtuse Kahekordne, mis määrab ühe perioodi vara lineaarse kulumi.

Süntaks

SLN ( maksumus, jääk, elu )

Funktsioonil SLN on järgmised argumendid.

Argument

Kirjeldus

kulu

– nõutav. Kahekordne määrab vara algse maksumuse.

Jääk

– nõutav. Kahekordne määrab varaobjekti väärtuse selle kasuliku eluea lõpus.

elu

– nõutav. Kahekordne määrab varaobjekti kasuliku eluea pikkuse.

Kommentaarid

Kulumiarvestuse periood tuleb väljendada sama üksusega, mis on eluargument. Kõik argumendid peavad olema positiivsed arvud.

Päringu näited

Avaldis

Tulemid

Valige SLN ([LoanAmount], [LoanAmount] *. 1, 20) Expr1 alates FinancialSample;

Annab ülevaate varaobjekti kulumist, mis on hinnatud kui "LoanAmount", mille likvideerimismaksumus on 10% "LoanAmount", mis korrutatakse väärtusega 0,1), võttes arvesse varaobjekti kasuliku eluea 20 aastat.

Valige SLN ([LoanAmount], 0, 20) nagu SLDepreciation FROM FinancialSample;

Annab tulemiks väärtuse "LoanAmount" väärtuse, mille väärtus on $0, võttes arvesse varaobjekti kasuliku eluea 20 aastat. Tulemid kuvatakse veeru SLDepreciation.

VBA näide

Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites kasutatakse funktsiooni SLN , et tagastada vara lineaarne amortisatsioon ühe perioodi kohta, mis on antud vara algsele maksumusele (InitCost), vara likvideerimismaksumus (SalvageVal) lõpus ning vara kogu eluea jooksul aastates (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."

Kas vajate veel abi?

Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×