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

Referenz

Definition

Namespace:: Microsoft.VisualBasic

Assembly:: Microsoft.VisualBasic.Core.dll

Assembly:: Microsoft.VisualBasic.dll

Quelle:: Financial.vb

Quelle:: Financial.vb

Quelle:: Financial.vb

Wichtig

Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.

Gibt einen Wert zurück, der die Jahresabschreibung eines Vermögenswerts für einen bestimmten Zeitraum angibt.

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

Parameter

Cost: Double

Erforderlich. Die Anschaffungskosten des Vermögenswerts.

Salvage: Double

Erforderlich. Der Wert des Vermögenswerts am Ende seiner Nutzungsdauer.

Life: Double

Erforderlich. Die Länge der Nutzungsdauer des Vermögenswerts.

Period: Double

Erforderlich. Der Zeitraum für den die Abschreibung des Vermögenswerts berechnet wird.

Gibt zurück

Double

Die Jahresabschreibung eines Vermögenswerts über einen bestimmten Zeitraum.

Ausnahmen

ArgumentException

Salvage< 0, Period>Life, oder Period<=0.

Beispiele

In diesem Beispiel wird die SYD -Funktion verwendet, um die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum zurückzugeben, wenn die Anfangskosten (InitCost), der Wert für die Rettung am Ende der Nutzungsdauer des Vermögenswerts (SalvageVal) und die Gesamtlebensdauer des Vermögenswerts in Jahren (LifeTime) angegeben ist.

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)

Hinweise

Die Life Argumente und Period müssen in denselben Einheiten ausgedrückt werden. Wenn beispielsweise Life in Monaten angegeben wird, Period muss auch in Monaten angegeben werden. Alle Argumente müssen positive Zahlen sein.

Gilt für:

Freigeben über