Funcția SYD

Important: Acest articol este tradus automat, consultați exonerarea de răspundere. Versiunea în limba engleză a acestui articol se poate găsi aici pentru referință.

Returnează o valoare Dublă precizie specificând prin însumarea anilor cifre amortizarea unui mijloc fix pentru o perioadă specificată.

Sintaxă

SYD ( cost, recuperat, viață, perioadă )

Sintaxa funcției SYD are următoarele argumente:

Argument

Descriere

cost

Sunt necesare. Dublă precizie specificând costul inițial al active.

recuperat

Sunt necesare. Dublă precizie specificând valoarea activului la sfârșitul său de viață utilă.

viață

Sunt necesare. Duble specificând durata de viață a active.

perioadă

Sunt necesare. Dublă precizie specificând perioada pentru care active amortizarea este calculată.


Observații

Argumentele de viață și perioadă trebuie exprimate în aceleași unități. De exemplu, dacă activitatea este dat în luni, perioadă , de asemenea, trebuie să fie furnizate în luni. Toate argumentele trebuie să fie numere pozitive.

Exemplu

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 SYD pentru a returna amortizarea unui mijloc fix pentru o perioadă specificată de date active costul inițial (InitCost), valoarea reziduală la sfârșitul active durata de viață (SalvageVal) și durata totală de utilizare în ani (LifeTime). Perioade în ani pentru care se calculează amortizarea este 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) & "."

Notă: Exonerare de răspundere pentru traducere automată: Acest articol a fost tradus de un sistem computerizat, fără intervenție umană. Microsoft oferă aceste traduceri automate pentru a ajuta utilizatorii vorbitori de alte limbi decât engleza să beneficieze de conținutul despre produsele, serviciile și tehnologiile Microsoft. Pentru că articolul a fost tradus de un computer, poate conține erori de vocabular, sintaxă sau gramatică.

Extindeți-vă competențele
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.

×