Funktionen DDB

Returnerar ett värde av datatypen Double som anger avskrivningen för en tillgång under en viss tidsperiod med hjälp av dubbel degressiv avskrivning eller någon annan metod som du anger.

Syntax

DEGAVSGAVSPRIS( kostnad; restvärde; livslängd; period [ ;faktor] )

Syntaxen för funktionen DEGAVSDB har följande argument:

Argument

Beskrivning

kostnad

Obligatoriskt. Double specifying initial cost of the asset.

restvärde

Obligatoriskt. Dubbelklicka på värdet för tillgången i slutet av dess livslängd.

livslängd

Obligatoriskt. Dubbel anger tillgångens livslängd.

punkt

Obligatoriskt. Double anger period för vilken avskrivningen beräknas.

faktor

Valfritt. Variant där saldot avböjs anges. Om den utelämnas används 2 (dubbel degresseringsmetod).


Kommentarer

Metoden med dubbel degressiv avskrivning beräknar en avskrivning som är störst under den första perioden och minskar successivt under följande perioder.

Argumenten för livslängd och period måste uttryckas i samma enhet. Om livslängd anges i månader, måste period också anges i månader. Alla argument måste vara positiva tal.

Funktionen DEGAVSB använder följande formel för att beräkna avskrivningen för en viss period:

Avskrivning/period = ((kostnadrestvärde) * faktor) / livslängd

Exempel

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

I det här exemplet används funktionen DEGAVSPRIS för att returnera avskrivningen för en tillgång under en viss period givet initialkostnaden (InitCost), restvärdet i slutet av tillgångens livslängd (SalvageVal), tillgångens totala livslängd i år (LifeTime) och perioden i de år som avskrivningen beräknas för (Depr).

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr
Const YRMOS = 12 ' Number of months in a year.
Fmt = "###,##0.00"
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("Enter the asset's value at end of its life.")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YRMOS ' 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 / YRMOS ' Convert months to years.
If LifeTime <> Int(MonthLife / YRMOS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("Enter year for depreciation calculation."))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = InputBox("Enter year for depreciation calculation.")
Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & _
Format(Depr, Fmt) & "."

Behöver du mer hjälp?

Utöka dina Office-kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×