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

  • リファレンス

定義

名前空間:
Microsoft.VisualBasic
アセンブリ:
Microsoft.VisualBasic.Core.dll
アセンブリ:
Microsoft.VisualBasic.dll
ソース:
Financial.vb
ソース:
Financial.vb
ソース:
Financial.vb

定額法を用いて資産の 1 期あたりの減価償却費を示す値を返します。

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

パラメーター

Cost
Double

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

Salvage
Double

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

Life
Double

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

戻り値

Double

定額法を用いて算出される、資産の 1 期あたりの減価償却費です。

例外

ArgumentException

Life = 0 です。

例

この例では、 関数をSLN使用して、資産の初期コスト ()、資産の耐用年数終了時の回収額 ()、および資産の総耐用年数 (InitCostSalvageValLifeTime) を指定して、1 つの期間の資産の定額減価償却費を返します。

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)

注釈

減価償却期間は、引数と同じ単位で表す Life 必要があります。 すべての引数は正の数値である必要があります。

適用対象

こちらもご覧ください