Функция SYD

Забележка: Бихме искали да ви осигурим най-новото помощно съдържание възможно най-бързо на вашия собствен език. Тази страница е преведена чрез автоматизация и може да съдържа граматически грешки и несъответствия. Нашата цел е това съдържание да ви бъде полезно. Можете ли да ни кажете дали информацията е била полезна за вас, в дъното на тази страница? Ето статията на английски за бърза справка.

Връща Double, представляваща сумата-на-сумарната амортизация на актив за зададен период.

Синтаксис

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) & "."
Разширете уменията си в Office
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×