Financial.SYD(Double, Double, Double, Double) Metódus

Definíció

Névtér:
Microsoft.VisualBasic
Szerelvény:
Microsoft.VisualBasic.Core.dll
Szerelvény:
Microsoft.VisualBasic.dll
Forrás:
Financial.vb
Forrás:
Financial.vb
Forrás:
Financial.vb
Forrás:
Financial.vb
Forrás:
Financial.vb

Olyan értéket ad vissza, amely egy adott időszakra vonatkozóan megadja egy eszköz évösszegi számjegyeinek értékcsökkenését.

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

Paraméterek

Cost
Double

Kötelező. Az eszköz kezdeti költsége.

Salvage
Double

Kötelező. Az eszköz értéke a hasznos élettartam végén.

Life
Double

Kötelező. Az eszköz hasznos élettartamának hossza.

Period
Double

Kötelező. Az az időszak, amelyre az eszköz értékcsökkenését kiszámítják.

Válaszok

Double

Az évösszeg egy eszköz értékcsökkenését adja meg egy adott időszakra vonatkozóan.

Kivételek

ArgumentException

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

Példák

Ez a példa egy adott időszakra vonatkozó eszköz értékcsökkenésének visszaadására használja a SYD függvényt, figyelembe véve az eszköz kezdeti költségét (InitCost), az eszköz hasznos élettartamának végén lévő maradványértéket (SalvageVal), valamint az eszköz év végi teljes élettartamát (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)

Megjegyzések

Az Life argumentumokat és Period az argumentumokat ugyanabban az egységben kell kifejezni. Ha például Life hónapokban adják meg, Period akkor hónapokban is meg kell adni. Minden argumentumnak pozitív számnak kell lennie.

A következőre érvényes:

Lásd még