Funkcija „SYD“

Napomena: Želimo da vam što pre pružimo najnoviji sadržaj pomoći čim na vašem jeziku. Ova stranica je prevedena automatski i može da sadrži gramatičke greške ili netačnosti. Naš cilj je da ovaj sadržaj bude koristan. Možete li nam na dnu ove stranice saopštiti da li su vam informacije bile od koristi? Ovo je članak na engleskom jeziku za brzu referencu.

Daje duplu navesti zbir-cifre amortizaciju materijalnih sredstava za precizirani period.

Sintaksa

SYD ( cena, rashod, vek, period )

Sintaksa funkcije SYD ima sledeće argumente:

Argument

Opis

trošak

Obavezno. Dvostruka navesti nabavna cena materijalnih sredstava.

rashod

Obavezno. Dvostruka koji određuje vrednost osnovnog na kraju njegove korisni vek materijalnih sredstava.

korisni vek

Obavezno. Dvostruka navođenje dužine korisni vek materijalnih sredstava.

period

Obavezno. Dvostruko navesti period za koji sredstava amortizacija se izračunava.


Primedbe

Na život i period argumenti u istim jedinicama. Na primer, ako život je je dat u mesecima, periodu mora takođe biti dat u mesecima. Svi argumenti moraju biti pozitivni brojevi.

Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Ako vam je potrebno više informacija o radu sa VBA modulom, izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite jedan ili više termina u polje za pretragu.

Ovaj primer koristi funkciju SYD da biste se vratili amortizaciju materijalnih sredstava za precizirani period s obzirom na nabavna cena (InitCost), Likvidaciona vrednost na kraju osnovnog korisni vek (SalvageVal) i ukupna korisni vek materijalnih sredstava u godina (LifeTime). Perioda tokom godine za koju se izračunava amortizaciju 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) & "."
Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×