Financial.SYD(Double, Double, Double, Double) Yöntem

Tanım

Ad Alanı:
Microsoft.VisualBasic
Bütünleştirilmiş Kod:
Microsoft.VisualBasic.Core.dll
Bütünleştirilmiş Kod:
Microsoft.VisualBasic.dll
Kaynak:
Financial.vb
Kaynak:
Financial.vb
Kaynak:
Financial.vb
Kaynak:
Financial.vb
Kaynak:
Financial.vb

Bir varlığın belirtilen dönem için yıl toplamının yıpranma değerini belirten bir değer döndürür.

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

Parametreler

Cost
Double

Gerekli. Varlığın ilk maliyeti.

Salvage
Double

Gerekli. Varlığın yararlı ömrünün sonundaki değeri.

Life
Double

Gerekli. Varlığın yararlı ömrünün uzunluğu.

Period
Double

Gerekli. Varlık yıpranma süresinin hesaplandığı dönem.

Döndürülenler

Double

Bir malın belirtilen dönem için toplam yıl sayısı yıpranma değeri.

Özel durumlar

ArgumentException

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

Örnekler

Bu örnekte, malın SYD ilk maliyeti (InitCost), malın kullanım ömrü ( ) sonundaki hurda değeri ve varlığın yıl cinsinden toplam ömrü (SalvageValLifeTime ) göz önüne alındığında, belirtilen bir dönem için yıpranma değerini döndürmek için işlevi kullanılır.

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)

Açıklamalar

Life ve Period bağımsız değişkenleri aynı birimlerde ifade edilmelidir. Örneğin, aylar içinde verilirse Life , Period aylar içinde de verilmelidir. Tüm bağımsız değişkenler pozitif sayılar olmalıdır.

Şunlara uygulanır

Ayrıca bkz.