Financial.DDB(Double, Double, Double, Double, Double) Metódus

Definíció

Névtér:
Microsoft.VisualBasic
Szerelvény:
Microsoft.VisualBasic.Core.dll
Szerelvény:
Microsoft.VisualBasic.dll
Forrás:
Financial.vb
Forrás:
Financial.vb
Forrás:
Financial.vb
Forrás:
Financial.vb
Forrás:
Financial.vb

Olyan értéket ad vissza, amely egy adott időszakra vonatkozóan megadja az eszköz értékcsökkenését a kettős hanyatlásos egyenleg módszerével vagy más ön által megadott módszerrel.

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

Paraméterek

Cost
Double

Kötelező. Az eszköz kezdeti költsége.

Salvage
Double

Kötelező. Az eszköz értéke a hasznos élettartam végén.

Life
Double

Kötelező. Az eszköz hasznos élettartama.

Period
Double

Kötelező. Az az időszak, amelyre az eszköz értékcsökkenését kiszámítják.

Factor
Double

Optional. Az a ráta, amelyen az egyenleg csökken. Ha nincs megadva, a rendszer 2-t (dupla degresszív módszert) feltételez.

Válaszok

Double

Egy eszköz értékcsökkenése egy adott időszakra a kettős hanyatlásos egyenleg módszerével vagy más ön által megadott módszerrel.

Kivételek

ArgumentException

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

Példák

Ez a példa az DDB eszköz értékcsökkenését adja vissza egy adott időszakra a kezdeti költség (InitCost), az eszköz hasznos élettartamának végén lévő maradványérték (SalvageVal), az eszköz teljes élettartama (évLifeTime) és az az időszak alapján, amelyre az értékcsökkenést kiszámítják (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)

Megjegyzések

Az állandó leírási kulcsot használó gyorsított értékcsökkenés gyorsított ütemben számolja el az amortizációt. Az értékcsökkenés nagysága az első időszakban a legnagyobb, az ezt követő időszakokban folyamatosan csökken.

Az Life argumentumokat és Period az argumentumokat ugyanabban az egységben kell kifejezni. Ha például Life hónapokban adják meg, Period akkor hónapokban is meg kell adni. Minden argumentumnak pozitív számnak kell lennie.

A DDB függvény az alábbi képletet használja egy adott időszakra vonatkozó értékcsökkenés kiszámításához:

Értékcsökkenés / Időszak = ((Költség – Maradványérték) * Tényező) / Élettartam

A következőre érvényes:

Lásd még