renvoie un double en spécifiant l’amortissement linéaire d’un bien pour une période donnée.
Syntaxe
SLN (coût, récupération, vie)
La fonction SLN 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 en 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’argument de la durée de vie. Tous les arguments doivent être des nombres positifs.
Exemples de requête
| Expression | Résultats |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample ; | renvoie l’amortissement d’un bien évalué en tant que « Montant du Crédit », avec une valeur résiduelle de 10 % (« Montant du Crédit » multiplié par 0,1), en considérant que la durée de vie utile du bien est de 20 ans. |
| SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample ; | Renvoie l’amortissement d’un bien évalué en tant que « Montant du prêt », avec une valeur résiduelle de 0 $, en considérant que la durée de vie utile du bien est de 20 ans. Les résultats sont affichés dans la colonne SLDepreciation. |
Exemple de VBA
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 SLN pour renvoyer l’amortissement linéaire d’un bien pour une période donnée en tenant compte du coût initial du bien (InitCost), de la valeur de récupération à la fin de la durée de vie utile du bien (SalvageVal) et de la durée de vie totale du bien en années (LifeTime).
Dim Fmt, InitCost, SalvageVal
Dim 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?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."