Applies ToAccess pour Microsoft 365 Access 2021 Access 2019 Access 2016

Renvoie une valeur Double spécifiant l’amortissement linéaire d’un actif pour une seule période.

Syntaxe

SLN( cost, salvage, life )

La fonction SLN contient les arguments suivants :

Argument

Description

coût

Obligatoire. Double spécification du coût initial de la ressource.

Récupération

Obligatoire. Double spécification de la valeur de la ressource à la fin de sa durée de vie utile.

durée de vie

Obligatoire. Double spécifiant la durée de vie utile de la ressource.

Notes

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

Exemples de requêtes

Expression

Résultats

SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample ;

Renvoie l’amortissement d’un bien évalué comme « LoanAmount », avec une valeur de récupération de 10 % (« LoanAmount » multipliée par 0,1), en tenant compte de la durée de vie utile de l’actif de 20 ans.

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

Renvoie l’amortissement d’un actif évalué comme « LoanAmount », avec une valeur de récupération de 0 $, en tenant compte 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 et 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 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 de vie totale de l’actif en années (LifeTime).

Dim Fmt, InitCost, SalvageValDim MonthLife, LifeTime, PDeprConst 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _       Format(PDepr, Fmt) & " per year."

Besoin d’aide ?

Vous voulez plus d’options ?

Explorez les avantages de l’abonnement, parcourez les cours de formation, découvrez comment sécuriser votre appareil, etc.

Les communautés vous permettent de poser des questions et d'y répondre, de donner vos commentaires et de bénéficier de l'avis d'experts aux connaissances approfondies.