Returnează o valoare cu 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. Double specificând costul inițial al mijlocului fix. |
| recuperat | Obligatoriu. Specifică de două ori valoarea mijlocului fix la sfârșitul duratei sale de viață. |
| viață | Obligatoriu. Specifică în două rânduri lungimea duratei de utilizare a mijlocului fix. |
Observații
Perioada de amortizare trebuie exprimată în aceeași unitate ca argumentul viață. Toate argumentele trebuie să fie numere pozitive.
Exemple de interogare
| expresie | Rezultatele |
|---|---|
| SELECT SLN([SumăÎmprumut],[VolumÎmprumut]*.1;20) AS Expr1 FROM FinancialSample; | Întoarce amortizarea pentru un mijloc fix evaluat ca "VolumÎmprumut", cu o valoare reziduală de 10%("VolumÎmprumut" înmulțit cu 0,1), considerând că durata de utilizare a mijlocului fix este de 20 de ani. |
| SELECT SLN([ÎmprumutSumă],0,20) AS SLDepreciation FROM FinancialSample; | Returnează amortizarea pentru un mijloc evaluat ca "VolumÎmprumut", cu o valoare reziduală de 0 lei, considerând că durata de utilizare a mijlocului fix este de 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 liniară a unui mijloc fix pentru o singură perioadă, fiind cunoscut costul inițial al mijlocului fix (InitCost), valoarea reziduală la sfârșitul duratei de viață utile a mijlocului fix (SalvageVal) și durata totală de viață a mijlocului fix în ani (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."