Функция 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) & "."

Забележка : Отказ от отговорност за машинен превод: Тази статия е преведена от компютърна система без човешка намеса. Microsoft предлага тези машинни преводи, за да помогне на потребителите, които не говорят английски, да се възползват от съдържанието за продукти, услуги и технологии на Microsoft. Тъй като статията е преведена машинно, е възможно да съдържа грешки в речника, синтаксиса и граматиката.

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

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

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

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

×