Funcția DDB

Returnează o valoare cu dublă precizie care specifică amortizarea unui mijloc fix pentru o perioadă de timp specificată, utilizând metoda balanței dublu-regresive sau o altă metodă pe care o specificați.

Sintaxă

DDB(cost, recuperat, durată, perioadă* [, factor] )

Sintaxa funcției DDB are următoarele argumente:

Argument	Descriere
cost	Obligatoriu. Double specificând costul inițial al mijlocului fix.
recuperat	Obligatoriu. Specifică de două ori valoarea mijlocului fix la sfârșitul duratei sale de viață.
viață	Obligatoriu. Specifică în dublă măsură durata de utilizare a mijlocului fix.
Perioadă	Obligatoriu. Double care specifică perioada pentru care se calculează amortizarea mijlocului fix.
factor	Opțional. Variant care specifică rata de descreștere a balanței. Dacă se omite, se consideră 2 (metoda dublu descrescătoare).

    

Observații

Metoda balanței dublu-regresive calculează amortizarea cu o rată accelerată. Amortizarea este mare în prima perioadă și descrește în timp.

Argumentele durată de viață și perioadă trebuie exprimate în aceleași unități. De exemplu, dacă viața este dată în luni, perioada trebuie să fie dată și în luni. Toate argumentele trebuie să fie numere pozitive.

Funcția DDB utilizează următoarea formulă pentru a calcula amortizarea pentru o perioadă dată:

Amortizare / perioadă = ((cost – recuperat) * factor) / durată de viață

Exemplu

Acest exemplu utilizează funcția DDB pentru a returna amortizarea unui mijloc fix pentru o perioadă specificată, fiind date costul inițial (InitCost), valoarea reziduală la sfârșitul duratei de viață utile a mijlocului fix (SalvageVal), durata totală de viață a mijlocului fix în ani (LifeTime) și perioada în ani pentru care se calculează amortizarea (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) & "."