Funkce SYD

Vrátí hodnotu typu Double určující číslice součtu let odpisu majetku za zadané období.

Syntaxe

SYD(náklady, zůstatky, životnost, období)

Syntaxe funkce SYD má tyto argumenty:

Argument	Popis
Náklady	Povinný argument. Double určující počáteční náklady na aktivum.
Zachránit	Povinný argument. Double určující hodnotu aktiva na konci jeho životnosti.
Život	Povinný argument. Double určující délku životnosti aktiva.
Období	Povinný argument. Double určující období, pro které se počítá odpis majetku.

Poznámky

Argumenty životnosti a tečky musí být vyjádřeny ve stejných jednotkách. Pokud je například životnost uvedena v měsících, musí být období také uvedeno v měsících. Všechny argumenty musí být kladná čísla.

Příklady dotazů

Výraz	Výsledky:
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Vypočítá odpisy aktiva ohodnoceného jako "LoanAmount" se zůstatkovou hodnotou 10 % ("LoanAmount" vynásobenou hodnotou 0,1) s ohledem na životnost aktiva na 20 let. Odpisy se počítají pro druhý rok.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	Vrátí odpisy aktiva ohodnoceného jako "LoanAmount" se zůstatkovou hodnotou 0 USD s ohledem na životnost aktiva na 20 let. Výsledky se zobrazí ve sloupci SLDepreciation. Odpisy se počítají pro třetí rok.

Příklad jazyka VBA

Tento příklad používá funkci SYD k vrácení odpisů aktiva za zadané období vzhledem k počátečním nákladům aktiva (InitCost), zůstatkové hodnotě na konci životnosti aktiva (SalvageVal) a celkové životnosti aktiva v letech (LifeTime). Období v letech, pro které se počítá odpis, 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) & "."