Zobrazit vše

Skrýt vše

Vrátí hodnotu s dvojitou přesností (Typ dat Double: Základní typ dat pro ukládání čísel s plovoucí desetinnou čárkou a dvojitou přesností. Je ukládán jako 64bitové číslo a může nabývat hodnot v rozmezí přibližně -1,797E308 až -4,940E-324 (záporné) a 4,94E-324 až 1,797E308 (kladné) nebo hodnoty 0.), která určuje lineární odpisy aktiva pro jedno období.

Syntaxe

SLN(cena, zůstatková_hodnota, životnost)

Funkce SLN má tyto argumenty (Argument: Hodnota, která poskytuje informace určité akci, události, metodě, vlastnosti, funkci nebo proceduře.):

Poznámky

Období pro odpisy musí být uvedeno ve stejných jednotkách jako argument (Argument: Hodnota, která poskytuje informace určité akci, události, metodě, vlastnosti, funkci nebo proceduře.) životnost. Všechny argumenty musí být kladná čísla.

Příklad

 Poznámka:   Následující příklady uvádějí použití této funkce v modulu jazyka Visual Basic for Applications (VBA). Další informace o práci s jazykem VBA získáte tak, že klepnete na položku Referenční informace pro vývojáře v rozevíracím seznamu vedle pole Hledat a do pole pro hledání zadáte jeden nebo více pojmů.

V tomto příkladu jsou pomocí funkce SLN určeny lineární odpisy aktiva pro jedno období, přičemž je dána pořizovací cena aktiva (InitCost), zůstatková hodnota aktiva po uplynutí doby jeho efektivní životnosti (SalvageVal) a celková ž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."