Funkcia SYD

Dôležité : Tento článok je strojovo preložený, prečítajte si vyhlásenie. Anglickú verziu tohto článku nájdete tu a môžete ju použiť ako referenciu.

Vráti hodnotu typu Double, ktorá určuje súčtu čísel rokov odpis majetku za zadané obdobie.

Syntax

SYD( cost, salvage, life, period )

Syntax funkcie SYD obsahuje tieto argumenty:

Argument

Popis

cost

Povinné. Hodnota typu Double, ktorá určuje počiatočnú cenu majetku.

salvage

Povinné. Hodnota typu Double, ktorá určuje hodnotu majetku na konci životnosti.

life

Povinné. Hodnota typu Double, ktorá určuje dĺžku životnosti majetku.

period

Povinné. Hodnota typu Double, ktorá určuje obdobie, pre ktoré sa vypočítava odpis majetku.


Poznámky

Životnosť a obdobie argumentov musia byť vyjadrené v rovnakých jednotkách. Napríklad, ak je životnosť v mesiacoch, obdobie venovať aj v mesiacoch. Hodnoty všetkých argumentov musia byť kladné čísla.

Príklad

Poznámka : Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.

V tomto príklade sa funkcia SYD používa na výpočet odpisov majetku za zadané obdobie vzhľadom na počiatočné náklady (InitCost), zostatkovú hodnotu na konci životnosti majetku (SalvageVal) a celkovú životnosť majetku v rokoch (LifeTime). Obdobie v rokoch, za ktoré sa vypočítajú odpisy, je 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) & "."

Poznámka : Vyhlásenie týkajúce sa strojového prekladu: Tento článok bol preložený počítačovým systémom bez zásahu človeka. Poskytovaním týchto strojových prekladov umožňuje spoločnosť Microsoft aj používateľom, ktorí nehovoria po anglicky, využívať obsah o produktoch, službách a technológiách spoločnosti Microsoft. Článok bol preložený strojovo, môže preto obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky.

Rozšírte svoje zručnosti
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pridajte sa k insiderom pre Office

Boli tieto informácie užitočné?

Ďakujeme za vaše pripomienky!

Ďakujeme vám za pripomienky. Pravdepodobne vám pomôže, ak vás spojíme s pracovníkom podpory pre Office.

×