Перейти до основного
Office

Функція SLN

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

Синтаксис

SLN ( вартість, залишкова, Life )

Функція SLN має такі аргументи:

Аргумент

Опис

витрати

– обов’язковий аргумент. 2 . встановлення початкової вартості активу.

Залишкова

– обов’язковий аргумент. Удвічі вказано значення активу в кінці терміну його корисного використання.

експлуатації

– обов’язковий аргумент. У подвійному визначенні тривалості корисного терміну експлуатації активу.

Примітки

Період амортизації має бути виражено в тому ж підрозділі, що йаргументжиття . Усі аргументи мають бути додатними числами.

Приклади запитів

Вираз

Результати

Виберіть SLN ([Кількість], [сума] *. 1; 20) як Expr1 з FinancialSample;

Повертає величину амортизації активу, який оцінюється як "сума", з Залишкова вартість 10%("сума", помноженої на 0,1), з урахуванням корисного терміну використання активу до 20 років.

Виберіть SLN ([Кількість]; 0; 20) як значення "амортизація" з FinancialSample;

Повертає величину амортизації активу, який оцінюється як "сума", з Залишкова вартість $0, враховуючи корисне життя активу до 20 років. Результати відображаються в показаних у стовпці.

Приклад 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."

Примітка.:  Цю сторінку перекладено за допомогою засобу автоматичного перекладу, тому вона може містити смислові, синтаксичні або граматичні помилки. Ми вважаємо, що цей вміст стане вам у пригоді. Повідомте нас, чи була ця інформація корисною. Для довідки цю статтю можна переглянути англійською мовою.

Удосконалення навичок роботи з Office
Ознайомтеся з навчальними матеріалами
Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо, що знайшли час і надіслали нам відгук! Можливо, у нас не буде часу відповісти на кожен коментар, але докладемо максимум зусиль, щоб переглянути їх усі. Вас цікавить, як ми використовуємо ваші відгуки?

×