Funkcija SLN

Pateikia dvigubą skaičių, nurodantį tiesinį turto nusidėvėjimą per vieną laikotarpį.

Sintaksė

SLN ( kaina, likvidacinė _ vertė, eksploatacijos laikas )

Funkcija SLN turi šiuos argumentus:

Argumentas

Aprašas

išlaidos

Būtinas. Dvigubasis , nurodantis pradinę turto kainą.

Likvidacinė vertė

Būtinas. Dvigubasis , nurodantis turto vertę jo naudingo tarnavimo laiko pabaigoje.

gyvenimo

Būtinas. Dvigubasis , nurodantis turto naudingo tarnavimo laiką.

Pastabos

Nusidėvėjimo laikotarpis turi būti išreikštas tuo pačiu vienetu kaip ir gyvybėsargumentas. Visi argumentai turi būti teigiami skaičiai.

Užklausos pavyzdžiai

Reiškinys

Rezultatai

Pasirinkite SLN ([LoanAmount], [LoanAmount] *. 1, 20) kaip Reiškinys1 iš FinancialSample;

Pateikia turto, vertinto kaip "LoanAmount", nusidėvėjimą, kai likvidacinė vertė yra 10% ("LoanAmount", padauginta iš 0,1), atsižvelgiant į turto naudingo tarnavimo laiką, kuris yra 20 metų.

Pasirinkite SLN ([LoanAmount], 0,20) kaip Slnusidėvėjimą iš FinancialSample;

Grąžina turto nusidėvėjimą, kuris vertinamas kaip "LoanAmount", kurio likvidacinė vertė yra $0, atsižvelgiant į turto naudingo tarnavimo laiką, kuris yra 20 metų. Rezultatai rodomi stulpelio Slnusidėvėjimas.

VBA pavyzdys

Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje naudojama funkcija SLN , kad būtų grąžinta tiesinis turto nusidėvėjimas per vieną laikotarpį, atsižvelgiant į turto pradinę kainą (InitCost), likvidacinę vertę turto naudingo tarnavimo laiko pabaigoje (SalvageVal) ir visą turto trukmę (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."

Pastaba:  Šis puslapis išverstas automatiškai, todėl gali būti gramatikos klaidų ar netikslumų. Mūsų tikslas – padaryti, kad šis turinys būtų jums naudingas. Prašome mus informuoti, ar radote reikiamos informacijos. Čia yra straipsnis anglų kalba, kuriuo galite pasinaudoti kaip nuoroda.

Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×