Funkcija „SYD“

Važno : Ovaj članak je mašinski preveden, pogledajte odricanje odgovornosti. Pogledajte verziju ovog članka na engleskom jeziku ovde za 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 vek materijalnih sredstava u godinama (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) & "."

Napomena : Odricanje odgovornosti za mašinski prevod: Ovaj članak je preveo računarski sistem bez ljudske intervencije. Microsoft nudi ove mašinske prevode da bi pomogao korisnicima koji ne govore engleski da uživaju u sadržaju o Microsoft proizvodima, uslugama i tehnologijama. Budući da je članak mašinski preveden, može da sadrži greške u rečniku, sintaksi ili gramatici.

Unapredite 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.

×