Повертає подвійне значення, що вказує лінійну амортизацію активу за один період.
Синтаксис
SLN(поч_ вартість;зал_вартість;термін_експлуатації )
Функція SLN має такі аргументи:
|
Аргумент |
Опис |
|
витрати |
— обов’язковий аргумент. Подвійне значення, яке вказує початкову вартість активу. |
|
Врятувати |
— обов’язковий аргумент. Подвійне визначення вартості активу в кінці його корисного терміну експлуатації. |
|
час роботи |
— обов’язковий аргумент. Подвійне визначення тривалості терміну експлуатації активу. |
Примітки
Період амортизації має бути виражено в тій самій одиниці, що й аргумент . Усі аргументи мають бути додатніми числами.
Приклади запитів
|
Вираз |
Результати |
|
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, 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."
