Financial.SLN, méthode

Article
08/21/2007

Retourne une valeur de type Double indiquant l'amortissement linéaire d'un bien pour une période donnée.

Espace de noms : Microsoft.VisualBasic
Assembly : Microsoft.VisualBasic (dans microsoft.visualbasic.dll)

Syntaxe

'Déclaration
Public Shared Function SLN ( _
    Cost As Double, _
    Salvage As Double, _
    Life As Double _
) As Double
'Utilisation
Dim Cost As Double
Dim Salvage As Double
Dim Life As Double
Dim returnValue As Double

returnValue = Financial.SLN(Cost, Salvage, Life)

public static double SLN (
    double Cost,
    double Salvage,
    double Life
)

public:
static double SLN (
    double Cost, 
    double Salvage, 
    double Life
)

public static double SLN (
    double Cost, 
    double Salvage, 
    double Life
)

public static function SLN (
    Cost : double, 
    Salvage : double, 
    Life : double
) : double

Paramètres

Cost
Obligatoire. Double qui spécifie le coût initial du bien.

Salvage
Obligatoire. Double indiquant la valeur du bien à la fin de son cycle de vie.

Life
Obligatoire. Double indique la durée du cycle de vie du bien.

Valeur de retour

Retourne une valeur de type Double indiquant l'amortissement linéaire d'un bien pour une période donnée.

Notes

Pour plus d'informations, consultez la rubrique Visual Basic SLN, fonction.

La période d'amortissement doit être exprimée dans la même unité que l'argument Life. Tous les arguments doivent être des nombres positifs.

Exemple

Cet exemple utilise la fonction SLN pour retourner l'amortissement linéaire d'un bien pour une période déterminée, en fonction du coût initial du bien (InitCost), de sa valeur résiduelle à l'issue de sa période d'utilisation (SalvageVal) et de sa durée de vie en nombre d'années (LifeTime).

Dim InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & _
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & _
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)

Plates-formes

Windows 98, Windows 2000 SP4, Windows CE, Windows Millennium Edition, Windows Mobile pour Pocket PC, Windows Mobile pour Smartphone, Windows Server 2003, Windows XP Édition Media Center, Windows XP Professionnel Édition x64, Windows XP SP2, Windows XP Starter Edition

Le .NET Framework ne prend pas en charge toutes les versions de chaque plate-forme. Pour obtenir la liste des versions prises en charge, consultez Configuration requise.

Informations de version

.NET Framework

Prise en charge dans : 2.0, 1.1, 1.0

.NET Compact Framework

Prise en charge dans : 2.0, 1.0

Voir aussi

Référence

Financial, classe
Membres Financial
Microsoft.VisualBasic, espace de noms
ArgumentException

Autres ressources

SLN, fonction
SYD, fonction
DDB, fonction
Liste des mots clés financiers

Partager via