Повертає подвійне значення, що вказує лінійну амортизацію активу за один період.
Синтаксис
SLN(поч_вартість;зал_вартість;термін_експлуатації)
Функція SLN має такі аргументи:
| Аргумент | Опис |
|---|---|
| Вартість | — обов’язковий аргумент. Подвійне значення, яке вказує початкову вартість активу. |
| Врятувати | — обов’язковий аргумент. Подвійне визначення вартості активу в кінці його корисного терміну експлуатації. |
| Життя | — обов’язковий аргумент. Подвійне визначення тривалості терміну експлуатації активу. |
Примітки
Період амортизації має бути виражено в тій самій одиниці, що й аргумент life. Усі аргументи мають бути додатніми числами.
Приклади запитів
| Вираз | Результати. |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS вираз1 from FinancialSample; | Повертає величину амортизації активу, який має значення "LoanAmount", з залишковою вартістю 10%("LoanAmount", помноженим на 0,1), враховуючи термін експлуатації активу на 20 років. |
| SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; | Повертає величину амортизації активу, який має значення "LoanAmount" з залишковою вартістю 0 грн. з урахуванням терміну експлуатації активу на 20 років. Результати відобразяться в стовпці SLDepreciation. |
Приклад 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."