Retourneert een waarde van het gegevenstype Double die de afschrijving van activa over een opgegeven termijn voorstelt, berekent met de 'double declining balance'-methode of een andere methode die u opgeeft.
Syntaxis
DDB(kosten, restwaarde, levensduur, periode* [, factor] )
De syntaxis van de functie DDB heeft deze argumenten:
| Argument | Beschrijving |
|---|---|
| kosten | Vereist. Een waarde van het gegevenstype Double die de aanschafkosten van het activum aangeeft. |
| restwaarde | Vereist. Een waarde van het gegevenstype Double die de waarde van het activum aan het einde van de levensduur aangeeft. |
| duur | Vereist. Een waarde van het gegevenstype Double die de lengte van de levensduur van het activum aangeeft. |
| termijn | Vereist. Een waarde van het gegevenstype Double die de periode aangeeft waarvoor de afschrijving van het activum wordt berekend. |
| factor | Optioneel. Een waarde van het type Variant die de snelheid aangeeft waarmee wordt afgeschreven. Als u dit argument weglaat, wordt 2 gebruikt, wat overeenkomt met de 'double declining balance'-methode. |
Opmerkingen
Bij de 'double declining balance'-methode worden de activa versneld afgeschreven. De afschrijving is het hoogst in de eerste termijn en wordt steeds kleiner in de volgende termijnen.
De argumenten voor levensduur en periode moeten in dezelfde eenheden worden uitgedrukt. Als de levensduur bijvoorbeeld in maanden wordt gegeven, moet de periode ook in maanden worden opgegeven. Alle argumenten moeten positieve getallen zijn.
De functie DDB gebruikt de volgende formule om de afschrijving voor een bepaalde periode te berekenen:
Afschrijving / periode = ((kosten – restwaarde) * factor) / levensduur
Voorbeeld
Opmerking
In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt de functie DDB gebruikt om de afschrijving van een activum voor een opgegeven periode te retourneren op basis van de initiële kosten (InitCost), de restwaarde aan het einde van de levensduur van het activum (SalvageVal), de totale levensduur van het actief in jaren (LifeTime) en de periode in jaren waarvoor de afschrijving wordt berekend (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) & "."