Повертає подвійне значення, що вказує лінійну амортизацію активу за один період.
Синтаксис
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, 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."