Funcția SLN

Returnează o dublură care specifică amortizarea liniară a unui mijloc fix pentru o singură perioadă.

Sintaxă

SLN ( cost, salvare, viață )

Funcția SLN are următoarele argumente:

Argument

Descriere

cost

Obligatoriu. Se specifică dublul costului inițial al activului.

recuperat

Obligatoriu. Valoarea specifică a activului la sfârșitul duratei de viață utile.

viață

Obligatoriu. Specificați dublu lungimea duratei de viață utile a activului.

Observații

Perioada de amortizare trebuie să fie exprimată în aceeași unitate caargument de viață . Toate argumentele trebuie să fie numere pozitive.

Exemple de interogare

Expresie

Rezultatele

Selectați SLN ([LoanAmount], [LoanAmount] *. 1; 20) ca Expr1 din FinancialSample;

Returnează amortizarea pentru un mijloc evaluat ca "LoanAmount", cu o valoare reziduală de 10%("LoanAmount" înmulțită cu 0,1), luând în considerare durata de viață utilă a activului de 20 de ani.

Selectați SLN ([LoanAmount], 0, 20) ca SLDepreciation din FinancialSample;

Returnează amortizarea pentru un mijloc evaluat ca "LoanAmount", cu o valoare reziduală de $0, luând în considerare durata de viață utilă a activului de 20 de ani. Rezultatele sunt afișate în coloana SLDepreciation.

Exemplu VBA

Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Acest exemplu utilizează funcția SLN pentru a returna amortizarea liniară a unui mijloc fix pentru o perioadă unică, dată fiind costul inițial al activului (InitCost), valoarea reziduală de la sfârșitul duratei de viață utile a activului (SalvageVal) și durata totală a activului în ani (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."

Notă:  Această pagină a fost tradusă automatizat și poate conține erori gramaticale sau inexactități. Scopul nostru este ca acest conținut să vă fie util. Ne puteți spune dacă informațiile au fost utile? Aici se află articolul în limba engleză, ca referință.

Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×