SYD, fonction

Important :  Cet article a été traduit automatiquement, voir l’avertissement. Vous pouvez consulter la version en anglais de cet article ici.

Renvoie un Double spécifiant chiffres amortissement la sum-of-years d’un bien pour une période spécifiée.

Syntaxe

SYD ( coût, valeur_rés, durée, période )

La syntaxe de la fonction SYD comprend les arguments suivants :

Argument

Description

coût

Obligatoire. Double spécifiant le coût initial de l’actif.

valeur_rés

Obligatoire. Double spécifiant la valeur de la ressource à la fin de son cycle de vie.

durée de vie

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

période

Obligatoire. Double spécifiant la période pour les biens amortissement est calculé.


Notes

Les arguments vie et période doivent être exprimés dans les mêmes unités. Par exemple, si la durée de vie est exprimé en mois, période doit également être exprimé en mois. Tous les arguments doivent être des nombres positifs.

Exemple

Remarque : Exemples suivants illustrent l’utilisation de cette fonction dans une Visual Basic pour le module d’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 recherche et entrez un ou plusieurs termes dans la zone de recherche.

Cet exemple utilise la fonction SYD pour renvoyer l’amortissement d’un bien pour une période donnée coût initial de l’actif (InitCost), la valeur résiduelle à la fin de cycle de vie son (SalvageVal) et la durée totale de l’actif en années (LifeTime). La période en années pour laquelle l’amortissement est calculé est PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS ' Ensure period is >= 1 year.
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YEARMONTHS ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."

Remarque : Avertissement traduction automatique : cet article a été traduit par un ordinateur, sans intervention humaine. Microsoft propose cette traduction automatique pour offrir aux personnes ne maîtrisant pas l’anglais l’accès au contenu relatif aux produits, services et technologies Microsoft. Comme cet article a été traduit automatiquement, il risque de contenir des erreurs de grammaire, de syntaxe ou de terminologie.

Développez vos compétences
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.

×