Financial.SYD(Double, Double, Double, Double) 方法

  • 参考

定义

命名空间:
Microsoft.VisualBasic
程序集:
Microsoft.VisualBasic.Core.dll
程序集:
Microsoft.VisualBasic.dll
Source:
Financial.vb
Source:
Financial.vb
Source:
Financial.vb

返回一个值，该值指定在指定周期内资产的年限总额折旧。

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

必需。 计算资产折旧所用的周期。

返回

Double

指定周期内资产的年限总额折旧。

例外

ArgumentException

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)

注解

Life和 Period 参数必须用相同的单位表示。 例如，如果 Life 以月份为单位提供 ， Period 则还必须以月份为单位提供 。 所有参数都必须是正数。

适用于

另请参阅