Funkcija SYD

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Vraća dvostruku vrijednost koja određuje amortizaciju izračunatu zbroja godina za sredstvo za navedeno razdoblje.

Sintaksa

SYD ( cijena, likvidacija, vijek, razdoblje )

Sintaksa funkcije SYD sadrži sljedeće argumente:

Argument

Opis

trošak

Obavezan. Dvostruki određuje početni trošak sredstava.

Likvidacijska

Obavezan. Dvostruki određuje vrijednost imovine na kraju njegov upotrebljivosti.

vijek

Obavezan. Dvostruki određuje duljinu upotrebljivosti imovine.

razdoblje.

Obavezan. Dvostruki određuje razdoblje za koje resursa amortizacije izračunava.


Napomene

Život i razdoblje argumente mora izraziti u istim jedinicama. Na primjer, ako vijek izražen je u mjesecima, razdoblje mora biti zadan i u mjesecima. Svi argumenti moraju biti pozitivni brojevi.

Primjer

Napomena : Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru koristi funkcija SYD Vraća amortizaciju sredstava za navedeno razdoblje uz zadani početni trošak sredstava (InitCost), Likvidacijska vrijednost na kraju sredstva upotrebljivosti (SalvageVal), a ukupni vijek imovine u godina (LifeTime). Razdoblje u godinama za koje se računa amortizacija 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 : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×