Vrátí hodnotu Double určující lineární odpis aktiva pro jedno období.
Syntaxe
ODPIS.LIN(náklady, zůstatek, životnost)
Funkce ODPIS.LIN má následující argumenty:
| Argument | Popis |
|---|---|
| Náklady | Povinný argument. Dvojitá hodnota určující pořizovací cenu aktiva. |
| Záchrana | Povinný argument. Dvojitá specifikace hodnoty aktiva na konci jeho životnosti. |
| ŽIVOT | Povinný argument. Double určující délku životnosti aktiva. |
Poznámky
Doba odepisování musí být vyjádřena ve stejné jednotce jako argument životnost. Všechny argumenty musí být kladná čísla.
Příklady dotazů
| Výraz | Výsledky: |
|---|---|
| SELECT SLN([částkapůjčky],[částkapůjčky]*.1,20) AS Expr1 FROM FinancialSample; | Vrátí odpis aktiva oceněného jako "ČástkaPůjčky" s zůstatkovou hodnotou 10 %("ČástkaPůjčky" vynásobená 0,1), pokud je životnost aktiva uvažována 20 let. |
| SELECT SLN([částkapůjčky],0,20) AS SLDepreciation FROM FinancialSample; | Vrátí odpis aktiva s hodnotou "Částkapůjčky" s zůstatkovou hodnotou 0 Kč s uvažovanou životností aktiva 20 let. Výsledky jsou zobrazeny ve sloupci SLDepreciation. |
Příklad jazyka VBA
Poznámka
Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
V tomto příkladu se funkce ODPIS.LIN používá k vrácení lineárního odpisu aktiva za jedno období s ohledem na pořizovací cenu aktiva (InitCost), zůstatkovou hodnotu na konci doby použitelnosti aktiva (SalvageVal) a celkovou životnost aktiva v letech (LifeTime).
Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."