次の方法で共有


Financial.SYD(Double, Double, Double, Double) メソッド

定義

定額逓減法を使用して、指定した期の減価償却費を示す値を返します。

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

パラメーター

Cost
Double

必須です。 資産を購入した時点での価格です。

Salvage
Double

必須です。 耐用年数が終了した時点での資産の価値です。

Life
Double

必須です。 資産の耐用年数です。

Period
Double

必須です。 減価償却費を計算する期です。

戻り値

定額逓減法を使用した、指定した期の減価償却費です。

例外

Salvage< 0、Period>Life、または Period<=0 です。

この例では、 関数を SYD 使用して、資産の初期コスト ()、資産の耐用年数の終了時のサルベージ値 (InitCost)、および資産の総耐用年数 (SalvageVal)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)

注釈

引数と Period 引数はLife、同じ単位で表す必要があります。 たとえば、 が月単位で指定されている場合 Life は、 Period も月単位で指定する必要があります。 すべての引数は正の数値である必要があります。

適用対象

こちらもご覧ください