Office
Vpis

Funkcija SYD

Opomba: Najnovejšo vsebino pomoči v vašem jeziku vam želimo zagotoviti v najkrajšem možnem času. Ta stran je bila prevedena z avtomatizacijo in lahko vsebuje slovnične napake ali nepravilnosti. Naš namen je, da bi bila vsebina za vas uporabna. Ali nam lahko na dnu te strani sporočite, ali so bile informacije za vas uporabne? Tukaj je angleški članek za preprosto referenco.

Vrne dvojno navaja vsote letnih števk amortizacijo sredstva za določeno obdobje.

Sintaksa

SYD ( stroški, vrednost_po_amor, življenje obdobje )

V sintaksi funkcije SYD so ti argumenti:

Argument

Opis

stroški

Zahtevano. Dvojni določite začetni stroški sredstva.

amortizacija

Zahtevano. Dvojni navede vrednost sredstva na koncu njegove življenjske dobe.

življenje

Zahtevano. Dvojno določanje dolžine uporabnosti sredstva.

obdobje.

Zahtevano. Dvojni določa obdobje, za katere sredstva amortizacije izračuna.


Opombe

Življenje in obdobje argumentov mora biti izražena v isti enote. Na primer, če življenje je izražen v mesecih, obdobje navesti tudi v mesecih. Vsi argumenti se morajo biti pozitivna števila.

Primer

Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

V tem primeru uporabi funkcija SYD vrne razvrednotenje osnovnega sredstva za navedeno obdobje glede na sredstva začetni stroški (InitCost), preostala vrednost na koncu življenjske dobe sredstva (SalvageVal) in skupna življenjska doba sredstva v leta (LifeTime). Obdobje v letih, za katerega se izračuna amortizacijo 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) & "."
Razširite poznavanje Officea
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×