Pateikia dvigubą skaičių, nurodantį tiesinę turto amortizaciją per vieną laikotarpį.
Sintaksė
SLN(vertė, likvidacinė_v, eksploatav)
Funkcijos SLN argumentai:
| Argumentas | Aprašymas |
|---|---|
| kaina | Būtinas. Dvigubas skaičius , nurodantis pradinę turto kainą. |
| Gelbėjimas | Būtinas. Dvigubas nurodantis turto vertę jo naudingo tarnavimo laiko pabaigoje. |
| gyvenimas | Būtinas. Dvigubas nurodantis turto naudingo tarnavimo laiką. |
Pastabos
Nusidėvėjimo laikotarpis turi būti išreikštas tuo pačiu vienetu kaip ir eksploatavimo trukmėsargumentas. Visi argumentai turi būti teigiami skaičiai.
Užklausų pavyzdžiai
| Išraiška | Rezultatai |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; | Grąžina turto, vertinamo kaip "Paskolos suma", nusidėvėjimą su likvidacine verte 10 % ("Paskolos suma", padauginta iš 0,1), atsižvelgiant į tai, kad turto naudingumo laikotarpis yra 20 metų. |
| SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; | Grąžina turto, įvertinto kaip "Paskolos suma", nusidėvėjimą su likvidacine verte 0 EUR, atsižvelgiant į turto naudingumo trukmę 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 funkcija SLN , grąžinanti tiesinį turto nusidėvėjimą per vieną laikotarpį, atsižvelgiant į turto pradinę kainą (InitCost), likvidacinę vertę turto naudingo tarnavimo laiko pabaigoje ()SalvageVal ir bendrą turto eksploatavimo laiką metais (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."