Funkcija SYD

Napomena:  Željeli bismo vam pružiti najnoviji sadržaj pomoći što je brže moguće i to na vašem jeziku. Ova je stranica strojno prevedena te može sadržavati gramatičke pogreške ili netočnosti. Naša je namjera da vam ovaj sadržaj bude koristan. Možete li nam pri dnu ove stranice javiti jesu li vam ove informacije bile korisne? Kao referencu možete pogledati i članak na engleskom jeziku .

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 sredstava 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 dali 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) & "."
Proširite svoje vještine korištenja sustava Office
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.

×