Pateikia dvigubą skaičių, nurodantį tiesinę turto nusidėvėjimą per vieną laikotarpį.
Sintaksė
SLN( kaina, likvidacinė_v, ekspoatacinė_vertė )
Funkcija SLN turi šiuos argumentus:
|
Argumentas |
Aprašas |
|
išlaidos |
Būtinas. Dvigubas skaičius , nurodantis pradinę turto kainą. |
|
Likvidacinė |
Būtinas. Dvigubas skaičius , nurodantis turto vertę pasibaigus jo naudingumo trukmei. |
|
įkrova |
Būtinas. Dvigubas skaičius , nurodantis turto naudingumo trukmę. |
Pastabos
Nusidėvėjimo laikotarpis turi būti išreikštas tuo pačiu vienetu kaip ir eksploatavimoargumentas. Visi argumentai turi būti teigiami skaičiai.
Užklausų pavyzdžiai
|
Reiškinys |
Rezultatai |
|
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; |
Grąžina turto, kurio vertė yra "LoanAmount", nusidėvėjimą, kai likvidacinė vertė yra 10 %("LoanAmount", padauginta iš 0,1), atsižvelgiant į turto naudingumo trukmę– 20 metų. |
|
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
Grąžina turto, kurio vertė yra "LoanAmount", nusidėvėjimą, kai likvidacinė vertė yra 0 EUR, atsižvelgiant į turto naudojimo trukmę kaip 20 metų. Rezultatai rodomi stulpelyje SLDepreciation. |
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 SLN funkcija, kad būtų grąžinta tiesinė turto amortizacija per vieną laikotarpį, atsižvelgiant į turto pradines išlaidas (InitCost), likvidacinę vertę turto naudingumo laikotarpio pabaigoje (SalvageVal) ir visą turto naudojimo trukmę metais (LifeTime).
Dim Fmt, InitCost, SalvageValDim MonthLife, LifeTime, PDeprConst 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _ Format(PDepr, Fmt) & " per year."
