Funkcija DDB

Atgriež datu tipu Double, kas norāda aktīva nolietojumu noteiktā laika periodā, izmantojot dubulti samazinošās vērtības (double-declining balance) metodi vai kādu citu izvēlētu metodi.

Sintakse

DDB(vērtība, likvidācijas_vērt, kalpošanas_laiks, periods* [, koeficients] )

Funkcijas DDB sintaksei ir šādi argumenti.

Arguments	Apraksts
izmaksas	Obligāts arguments. Double , kas norāda līdzekļa sākotnējo vērtību.
Likvidācija	Obligāts arguments. Dubults , kas norāda līdzekļa vērtību pēc tā lietderīgās lietošanas laika beigām.
darbības laiks	Obligāts arguments. Dubults , norādot līdzekļa lietderīgās lietošanas laika ilgumu.
periods	Obligāts arguments. Double norāda periodu, kuram tiek aprēķināts līdzekļa nolietojums.
faktors	Neobligāts arguments. Variants, kas norāda koeficientu, ar kādu samazinās bilance. Ja šī vērtība tiek izlaista, tiek pieņemts, ka tā ir 2 (dubultās samazināšanās metode).

    

Piezīmes

Bilances dubultās samazināšanās metode aprēķina nolietojumu ar koeficienta paātrinājumu. Pirmajā periodā nolietojums ir visaugstākais, bet turpmākajos periodos tas samazinās.

Dzīvības unperioda argumenti ir jāizsaka tādās pašās mērvienībās. Piemēram, ja dzīve ir norādīta mēnešos, periods jānorāda arī mēnešos. Visiem argumentiem jābūt pozitīviem skaitļiem.

Funkcija DDB izmanto šādu formulu, lai aprēķinātu nolietojumu noteiktam periodam:

Nolietojums / periods = ((vērtība – likvidācijas_vērt) * koeficients) / kalpošanas_laiks

Piemērs

Šajā piemērā izmantota funkcija DDB , lai atgrieztu aktīva nolietojumu noteiktā laika periodā, ja ir zināmas sākotnējās izmaksas (),InitCost lūžņu vērtība pēc līdzekļa lietderīgās lietošanas laika (SalvageVal), kopējais līdzekļa kalpošanas laiks gados (LifeTime) un periods gados, kuram tiek aprēķināts nolietojums (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) & "."