Office
Log på

Funktionen SYD

Bemærk!: Vi vil gerne give dig den mest opdaterede hjælp, så hurtigt vi kan, på dit eget sprog. Denne side er oversat ved hjælp af automatisering og kan indeholde grammatiske fejl og unøjagtigheder. Det er vores hensigt, at dette indhold skal være nyttigt for dig. Vil du fortælle os, om oplysningerne var nyttige for dig, nederst på denne side? Her er artiklen på engelsk så du kan sammenligne.

Returnerer en dobbelt, der angiver den sum afskrivning på et aktiv i en angivet periode.

Syntaks

Årsafskrivning ( omkostninger, restværdi, levetid, periode )

Syntaksen for funktionen Årsafskrivning har følgende argumenter:

Argument

Beskrivelse

omkostninger

Der er påkrævet. Dobbelt angiver indledende omkostninger for aktivet.

Restværdi

Der er påkrævet. Dobbelt angiver værdien af aktivet i slutningen af dets levetid.

levetid

Der er påkrævet. Dobbelt angiver længden af aktivets levetid.

periode

Der er påkrævet. Dobbelt angive periode for hvilke aktiv er afskrivning beregnet.


Bemærkninger

Argumenterne liv og periode skal angives i den samme enhed. Eksempelvis hvis levetid er angivet i måneder, gives periode også i måneder. Alle argumenter være positive tal.

Eksempel

Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

I dette eksempel bruges funktionen Årsafskrivning til at returnere afskrivningen på et aktiv i en angivet periode, der er givet aktivets startomkostninger (InitCost), restværdi i slutningen af den aktivets levetid (SalvageVal), og den samlede levetid i år (LifeTime). Periode i år, afskrivningen beregnes 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) & "."
Udvid dine Office-færdigheder
Gå på opdagelse i kurser
Få nye funktioner først
Bliv Office Insider

Var disse oplysninger nyttige?

Tak for din feedback!

Tak for din feedback! Det lyder, som om det vil kunne hjælpe, hvis du bliver sat i forbindelse med en af vores Office-supportteknikere.

×