Renvoie un Double en spécifiant l’amortissement d’un bien pour une période donnée à l’aide de la méthode de l’amortissement dégressif à taux double ou d’une autre méthode que vous spécifiez.
Syntaxe
DDB(coût, récupération, durée de vie, période* [, facteur] )
La syntaxe de la fonction DDB contient les arguments suivants :
| Argument | Description |
|---|---|
| coût | Obligatoire. Double en spécifiant le coût initial du bien. |
| val_résiduelle | Obligatoire. Double spécification de la valeur du bien à la fin de sa durée de vie utile. |
| la vie | Obligatoire. Double spécifiant la durée de vie utile du bien. |
| période | Obligatoire. Double spécification de la période pour laquelle l’amortissement de l’immobilisation est calculé. |
| facteur | Facultatif. Variante spécifiant la vitesse à laquelle le solde diminue. Si cette option est omise, la valeur 2 (méthode à double déclin) est présumée. |
Remarques
La méthode de l’amortissement dégressif à taux double calcule l’amortissement à une vitesse accélérée. L’amortissement est au plus haut pendant la première période, puis il diminue au cours des périodes suivantes.
Les arguments de durée de vie et de période doivent être exprimés dans les mêmes unités. Par exemple, si la vie est donnée en mois, la période doit également être donnée en mois. Tous les arguments doivent être des nombres positifs.
La fonction DDB utilise la formule suivante pour calculer l’amortissement pour une période donnée :
Amortissement / période = ((coût – valeur résiduelle) * facteur) / durée de vie
Exemple
Remarque
Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence développeur dans la liste déroulante en regard de Rechercher , puis entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction DDB pour renvoyer l’amortissement d’un bien pour une période donnée en fonction du coût initial (InitCost), de la valeur résiduelle à la fin de la durée de vie utile du bien (SalvageVal), de la durée de vie totale du bien en années (LifeTime) et de la période en années pour laquelle l’amortissement est calculé (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) & "."