Fonction SLN

  • Article

Renvoie une valeur de type Double spécifiant l’amortissement linéaire d’un bien sur une période donnée.

Syntaxe

SLN(cost, salvage, life)

La fonction SLN comprend les arguments nommés suivants :

Élément Description
Coût Obligatoire. Double indiquant le coût initial du bien.
Récupération Obligatoire. Double indiquant la valeur du bien à la fin de sa durée de vie utile.
Vie Obligatoire. Double spécifiant la durée de vie utile du bien.

Remarques

La période d’amortissement doit être exprimée dans la même unité que l’argumentde durée de vie. Tous les arguments doivent être des nombres positifs.

Exemple

Cet exemple utilise la fonction SLN pour renvoyer l’amortissement linéaire d’un bien pour une période donnée en fonction du coût initial de l’actif (InitCost), de la valeur de récupération à la fin de la durée de vie utile de l’actif (SalvageVal) et de la durée totale de vie de l’actif en années (LifeTime).

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, PDepr
Const YEARMONTHS = 12    ' Number of months in a year.
Fmt = "###,##0.00"    ' Define money format.
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("What's the asset's value at the end of its useful life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS    ' 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 / YEARMONTHS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & Format(PDepr, Fmt) & " per year."

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.