Returnează o valoare Dublă precizie care specifică amortizarea în linie dreaptă a unui mijloc fix pentru o singură perioadă.
Sintaxă
SLN( cost, recuperat, durată )
Funcția SLN are următoarele argumente:
|
Argument |
Descriere |
|
cost |
Obligatoriu. Dublă precizie specificând costul inițial al mijlocului fix. |
|
Salvare |
Obligatoriu. Dublă precizie specificând valoarea mijlocului fix la sfârșitul duratei sale de utilizare. |
|
durată |
Obligatoriu. Double specificând lungimea duratei de utilizare a mijlocului fix. |
Observații
Perioada de amortizare trebuie exprimată în aceeași unitate ca și durata de viațăargument. Toate argumentele trebuie să fie numere pozitive.
Exemple de interogare
|
Expresie |
Rezultatele |
|
SELECT SLN([Volum Împrumutat],[Volum Împrumutat]*.1,20) AS Expr1 FROM FinancialSample; |
Întoarce amortizarea pentru un mijloc fix evaluată ca "ValoareDator", cu o valoare reziduală de 10%("ValoareDator" înmulțită cu 0,1), luând în considerare durata de viață utilă a mijlocului fix să fie de 20 de ani. |
|
SELECT SLN([VolumCredit],0,20) AS SLDepreciation FROM FinancialSample; |
Întoarce amortizarea pentru un mijloc fix evaluată ca "ValoareDator", cu o valoare reziduală de 0 lei, luând în considerare durata de utilizare a mijlocului fix la 20 de ani. Rezultatele sunt afișate în coloana SLDepreciation. |
Exemplu VBA
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția SLN pentru a returna amortizarea în linie dreaptă a unui mijloc fix pentru o singură perioadă, dată fiind costul inițial al mijlocului fix (InitCost), valoarea reziduală la sfârșitul duratei de viață utilă a mijlocului fix (SalvageVal) și durata totală de viață a mijlocului fix în ani (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."
