Funkcija SYD

Piezīme.: Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā.

Atgriež datu tipu Double, kas norāda ar gada ciparu pamatlīdzekļa amortizāciju noteiktā laika periodā.

Sintakse

SYD ( izmaksas, likvidācija, periods )

Funkcijas SYD sintaksei ir šādi argumenti:

Arguments

Apraksts

izmaksas

Obligāts. Dubulto norādot sākotnējās aktīvu izmaksas.

likvidācija

Obligāts. Double norāda līdzekļu derīguma beigu vērtību.

kalpošanas

Obligāts. Dubulto norādot garumu kalpošanas aktīva.

periods

Obligāts. Dubults norādot periodu kuras pamatlīdzekļa nolietojums tiek aprēķināts.


Piezīmes

Tās pašas mērvienības jāizsaka dzīvīgumu un perioda argumenti. Piemēram, ja kalpošanas iespēja mēnešu laikā, perioda jāsniedz arī mēnešu laikā. Visiem argumentiem jābūt pozitīviem skaitļiem.

Piemērs.

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā funkcija SYD , lai atgrieztu pamatlīdzekļa amortizāciju noteiktā laika periodā, ņemot vērā līdzekļu sākotnējās izmaksas (InitCost), lūžņu vērtība līdzekļu lietošana (SalvageVal) un kopējo kalpošanas laiku beigās gadus (LifeTime). Termiņš gados, kurā tiek aprēķināts nolietojums ir 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) & "."
Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×