Financial.DDB(Double, Double, Double, Double, Double) Metod

Definition

Namnområde:
Microsoft.VisualBasic
Sammansättning:
Microsoft.VisualBasic.Core.dll
Sammansättning:
Microsoft.VisualBasic.dll
Källa:
Financial.vb
Källa:
Financial.vb
Källa:
Financial.vb
Källa:
Financial.vb
Källa:
Financial.vb

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

public static double DDB(double Cost, double Salvage, double Life, double Period, double Factor = 2);
static member DDB : double * double * double * double * double -> double
Public Function DDB (Cost As Double, Salvage As Double, Life As Double, Period As Double, Optional Factor As Double = 2) As Double

Parametrar

Cost
Double

Required. Den initiala kostnaden för tillgången.

Salvage
Double

Required. Tillgångens värde i slutet av dess livslängd.

Life
Double

Required. Tillgångens livslängd.

Period
Double

Required. Den period för vilken tillgångsavskrivning beräknas.

Factor
Double

Optional. Den hastighet med vilken saldot minskar. Om argumentet utelämnas används 2 (dubbel degressiv degressiv metod).

Returer

Double

Avskrivningen av en tillgång för en viss tidsperiod med hjälp av metoden för dubbel degressiv balans eller någon annan metod som du anger.

Undantag

ArgumentException

Factor <= 0, Salvage< 0,Period< = 0 eller Period>Life.

Exempel

I det DDB här exemplet används funktionen för att returnera avskrivningen för en tillgång under en angiven period med tanke på den initiala kostnaden (InitCost), restvärdet i slutet av tillgångens livslängd (SalvageVal), tillgångens totala livslängd i år (LifeTime) och perioden i år för vilka avskrivningen beräknas (Depr).

Dim InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & 
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & 
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)

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 Life och Period måste uttryckas i samma enheter. Om det till exempel Life anges i månader Period måste även anges i månader. Alla argument måste vara positiva tal.

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

Avskrivning/period = ((kostnad - bärgning) * faktor) / livslängd

Gäller för

Se även