Функція SYD

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Повертає подвійне значення на суму з річних цифр величину амортизації активу за вказаний період.

Синтаксис

SYD ( вартість, зал, життя період )

Синтаксис функції SYD має такі аргументи:

Аргумент

Опис

вартість

Обов'язковий аргумент. Подвійні визначення початкова вартість активу.

зал

Обов'язковий аргумент. Подвійний , яке задає значення в кінці його експлуатації активів.

термін експлуатації

Обов'язковий аргумент. Подвійні визначення довжини експлуатації активів.

період

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


Примітки

Життя і період аргументи мають виражений в одному одиниці. Наприклад, якщо життя враховуючи місяці, період також повинні бути надані у місяцях. Усі аргументи мають бути додатними числами.

Приклад

Примітка : У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.

У цьому прикладі використовується функція SYD для повернення величину амортизації активу за вказаний період, наданих активу початкова вартість (InitCost), Залишкова вартість в кінці активу експлуатації (SalvageVal) а загальний термін експлуатації активів років (LifeTime). Період років, для якого обчислюється амортизації є PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS ' Ensure period is >= 1 year.
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YEARMONTHS ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."

Примітка : Застереження про машинний переклад: Цю статтю перекладено комп’ютерною системою без втручання людини. Корпорація Майкрософт пропонує таку послугу, щоб іншомовні користувачі могли дізнаватися про продукти, служби й технології Microsoft. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

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

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

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

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×