SLN, fonction

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

Syntaxe

AMORLIN ( coût, valeur_rés, durée )

La fonction AMORLIN contient les arguments suivants:

Argument

Description

coût

Obligatoire. Double indiquant le coût initial de l’actif.

ValeurRésiduelle

Obligatoire. Double spécifiant la valeur du bien à la fin de sa durée d’utilisation.

long

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

Notes

La durée de l’amortissement doit être comprise dans la même unité que leargument de Life . Tous les arguments doivent être des nombres positifs.

Exemples de requête

Expression

Résultats

Sélectionnez AMORLIN ([LoanAmount], [LoanAmount] *. 1, 20) comme expr1 dans FinancialSample;

Calcule l’amortissement d’un bien pour une valeur de «LoanAmount», avec une valeur de récupération de 10%(«LoanAmount» multipliée par 0,1), ce qui considère que la durée de vie du bien est d’au plus 20 ans.

Sélectionnez AMORLIN ([LoanAmount]; 0; 20) en tant que SLDepreciation à partir de FinancialSample;

Renvoie l’amortissement d’un bien pour une valeur de propriété «LoanAmount», avec une valeur résiduelle de $0, qui considère qu’il s’agit de la durée de vie utile de l’actif de 20 ans. Les résultats sont affichés dans la colonne SLDepreciation.

Exemple 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 du développeur dans la liste déroulante en regard de Rechercher , puis entrez une ou plusieurs conditions dans la zone de recherche.

Cet exemple utilise la fonction AMORLIN 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 utile de la ressource (SalvageVal) et de la durée totale de la ressource 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."

Remarque :  Cette page a été traduite automatiquement et peut donc contenir des erreurs grammaticales ou des imprécisions. Notre objectif est de faire en sorte que ce contenu vous soit utile. Pouvez vous nous dire si les informations vous ont été utiles ? Voici l’article en anglais pour référence.

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.

×