Applies ToAccess для Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Повертає подвійне значення, що вказує лінійну амортизацію активу за один період.

Синтаксис

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."

Потрібна додаткова довідка?

Потрібні додаткові параметри?

Ознайомтеся з перевагами передплати, перегляньте навчальні курси, дізнайтесь, як захистити свій пристрій тощо.

Спільноти допомагають ставити запитання й відповідати на них, надавати відгуки та дізнаватися думки висококваліфікованих експертів.