Dupla értéket ad vissza, amely egy eszköz értékcsökkenését adja meg egy adott időszakra a kétszeresen csökkenő egyenleg vagy más megadott módszer használatával.
Szintaxis
DDB( költség; maradványérték; élettartam; időszak [, tényező] )
A DDB függvény szintaxisa az alábbi argumentumokat foglalja tartalmazza:
argumentumok |
Leírás |
költség |
Megadása kötelező. Az eszköz kezdeti költségének dupla megadása. |
Megmenteni |
Megadása kötelező. Az objektum értékét a hasznos élettartam végén kétszer kell megadni. |
élettartam |
Megadása kötelező. Az objektum hasznos élettartamának dupla megadásával. |
Időszak |
Megadása kötelező. Az eszköz értékcsökkenésének kiszámítására szolgáló időszak dupla megadása. |
Tényező |
Nem kötelező. Variant, amely azt a mértéket határozza meg, amelynél az egyenleg csökken. Ha nincs megadva, a rendszer 2-t (dupla degresszív módszert) feltételez. |
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 élettartam- és időszakargumentumokat ugyanabban az egységben kell megadni. Ha például az élet hónapokban van megadva, az időszakot is hónapokban kell megadni. 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
Példa
Megjegyzés: A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ez a példa a DDB függvénnyel adja vissza egy eszköz értékcsökkenését egy adott időszakra vonatkozóan 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 években (LifeTime) és azokban az években, amelyekben az értékcsökkenést kiszámítják (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) & "."