Renvoie une valeur Double spécifiant l’amortissement d’un actif pour une période spécifique à l’aide de la méthode de solde à double diminution ou d’une autre méthode que vous spécifiez.
Syntaxe
DDB( cost, salvage, life, period [, factor] )
La syntaxe de la fonction DDB contient les arguments suivants :
|
Argument |
Description |
|
coût |
Obligatoire. Double spécification du coût initial de la ressource. |
|
Récupération |
Obligatoire. Double spécification de la valeur de la ressource à la fin de sa durée de vie utile. |
|
durée de vie |
Obligatoire. Double spécification de la durée de vie utile de la ressource. |
|
Période |
Obligatoire. Double période de spécification pour laquelle l’amortissement des actifs est calculé. |
|
Facteur |
Facultatif. Variante spécifiant la vitesse à laquelle le solde diminue. En cas d’omission, 2 (méthode à double déclin) est supposé. |
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 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 – récupération) * 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 du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction DDB pour retourner l’amortissement d’un bien pour une période spécifiée en fonction du coût initial (InitCost), de la valeur de récupération à la fin de la durée de vie utile de l’actif (SalvageVal), de la durée totale de la ressource en années (LifeTime) et de la période en années pour lesquelles 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) & "."
