Funktionen SYD

Returnerer et dobbelt reelt tal, der angiver afskrivningscifrene for et aktiv i en bestemt periode.

Syntaks

SYD(købspris;restværdi;levetid;periode)

Syntaksen for funktionen SYD har disse argumenter:

Argument	Beskrivelse
Omkostninger	Påkrævet. Dobbelt reelt tal , der angiver aktivets startpris.
Bjærgning	Påkrævet. Dobbelt reelt tal , der angiver aktivets værdi ved slutningen af dets levetid.
Liv	Påkrævet. Dobbelt reelt tal, der angiver aktivets levetid.
Periode	Påkrævet. Dobbelt reelt tal angiver den periode, aktivafskrivningen beregnes for.

Bemærkninger

Argumenterne for levetid og periode skal udtrykkes i de samme enheder. Hvis der f.eks. er givet liv i måneder, skal perioden også angives i måneder. Alle argumenter skal være positive tal.

Forespørgselseksempler

Udtryk	Resultater
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Udtryk1 FROM FinancialSample;	Beregner afskrivningen for et aktiv, der er værdiangivet som "LoanAmount", med en restværdi på 10 % ("LoanAmount" ganget med 0,1), idet aktivets levetid i betragtning af aktivets levetid er 20 år. Afskrivningen beregnes for det andet år.
SELECT SYD([LoanAmount];0;20;3) AS SLDepreciation FROM FinancialSample;	Returnerer afskrivningen for et aktiv, der er værdianskrevet som "LoanAmount", med en restværdi på kr. 0, hvor aktivets levetid i betragtning af aktivets levetid er 20 år. Resultaterne vises i kolonnen SLDepreciation. Afskrivningen beregnes for tredje år.

VBA-eksempel

I dette eksempel bruges funktionen SYD til at returnere afskrivningen på et aktiv i en angivet periode med aktivets startomkostninger (InitCost), restværdien ved aktivets levetid (SalvageVal) og aktivets samlede levetid i år (LifeTime). Den periode i år, afskrivningen beregnes for, er 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) & "."