Fonction SLN

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 :

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

• Fonctions (Visual Basic pour Applications)

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.