Financial.SYD(Double, Double, Double, Double) Methode

Definitie

Naamruimte:
Microsoft.VisualBasic
Assembly:
Microsoft.VisualBasic.Core.dll
Assembly:
Microsoft.VisualBasic.dll
Bron:
Financial.vb
Bron:
Financial.vb
Bron:
Financial.vb
Bron:
Financial.vb
Bron:
Financial.vb

Retourneert een waarde die de afschrijving van activa optelt voor een bepaalde periode.

public:
 static double SYD(double Cost, double Salvage, double Life, double Period);
public static double SYD(double Cost, double Salvage, double Life, double Period);
static member SYD : double * double * double * double -> double
Public Function SYD (Cost As Double, Salvage As Double, Life As Double, Period As Double) As Double

Parameters

Cost
Double

Verplicht. De initiële kosten van het activum.

Salvage
Double

Verplicht. De waarde van het activum aan het einde van de levensduur.

Life
Double

Verplicht. De lengte van de levensduur van het activum.

Period
Double

Verplicht. De periode waarvoor afschrijving van activa wordt berekend.

Retouren

Double

De afschrijving van activa op basis van de som van jaren gedurende een opgegeven periode.

Uitzonderingen

ArgumentException

Salvage < 0, Period>Lifeof Period<=0.

Voorbeelden

In dit voorbeeld wordt de SYD functie gebruikt om de afschrijving van activa voor een opgegeven periode te retourneren op basis van de initiële kosten van het activum (InitCost), de restwaarde aan het einde van de levensduur van het activum (SalvageVal) en de totale levensduur van het activum in jaren (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)

Opmerkingen

De Life argumenten moeten Period worden uitgedrukt in dezelfde eenheden. Als Life bijvoorbeeld in maanden wordt gegeven, Period moet dit ook in maanden worden gegeven. Alle argumenten moeten positieve getallen zijn.

Van toepassing op

Zie ook