Повертає число подвійної точності, яке вказує величину амортизації активу за один період із використанням лінійного методу.
Синтаксис
SLN(вартість, зал_вартість, термін_експлуатації)
Функція SLN має такі аргументи:
| Аргумент | Опис |
|---|---|
| Вартість | — обов’язковий аргумент. Подвійне визначення первісної вартості активу. |
| Врятування | — обов’язковий аргумент. Подвійне зазначення вартості активу після завершення терміну його корисного використання. |
| час роботи | — обов’язковий аргумент. Подвійне зазначення тривалості строку корисного використання активу. |
Примітки
Період амортизації має бути виражений у тій самій одиниці, що й аргумент «термін_експлуатації». Усі аргументи мають бути додатними числами.
Приклади запитів
| Вираз | Результати. |
|---|---|
| SELECT SLN([Сума позики];[Сума позики]*,1;20) AS вираз1 FROM FinancialSample; | Повертає величину амортизації активу, оціненого як "Сума позики", із залишковою вартістю 10% ("Сума позики" помножити на 0,1), якщо термін корисної експлуатації активу становить 20 років. |
| SELECT SLN([LoanAmount],0;20) AS SLDemorciation FROM FinancialSample; | Повертає величину амортизації активу, оціненого як "сума позики", із залишковою вартістю 0 грн. (якщо термін експлуатації активу становить 20 років). Результати відображаються в стовпці SLDehociation. |
Приклад VBA
Примітка.
У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі функція SLN використовується для обчислення амортизації активу за один період із заданим початковою вартістю активу (InitCost), залишковою вартістю наприкінці терміну експлуатації активу (SalvageVal) і загальним терміном експлуатації активу в роках (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."