SLN, fonction

Renvoie un double spécifiant l’amortissement linéaire d’un bien pour une période donnée.

Syntaxe

SLN( coût, valeurs récupérables, durée )

La fonction A SLN a les arguments ci-après :

Argument

Description

coût

Obligatoire. Double spécification du coût initial du bien.

valeur.de,valeur

Obligatoire. Spécifier la valeur du bien à la fin de sa vie utile.

durée

Obligatoire. Double spécification de la durée de vie utile du bien.

Remarques

La période d’amortissement doit être exprimée dans la même unité que la duréeargument. 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 dont la valeur est « LoanAmount », avec une valeur récupérable de 10 % (« LoanAmount » multipliée par 0,1), la durée de vie utile du bien devant être de 20 ans.

SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample;

Renvoie l’amortissement d’un bien dont la valeur est « LoanAmount » et qui est d’une valeur de 0 $ après 20 ans pour la durée de vie utile du bien. Les résultats sont affichés dans la colonne SLDepreciation.

Exemple de VBA

Remarque : Les exemples qui suivent illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’travail avec VBA, sélectionnez Référence du développeur dans la liste de listes en regard de Rechercher, puis entrez un ou plusieurs termes dans la zone de recherche.

Cet exemple utilise la fonction A SLN pour renvoyer l’amortissement linéaire d’un bien pour une période unique en fonction du coût initial du bien (InitCost), de la valeur du bien au terme de sa vie utile (SalvageVal) et de la durée totale de vie 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."

Besoin d’aide ?

Développez vos compétences dans Office
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoignez le programme Office Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×