Функция SYD

Статья
11/05/2008

Обновлен: Ноябрь 2007

Возвращает значение типа Double, определяющее величину ускоренной амортизации актива за указанный период времени.

Function SYD( _
   ByVal Cost As Double, _
   ByVal Salvage As Double, _
   ByVal Life As Double, _
   ByVal Period As Double _
) As Double

Параметры

Cost
Обязательный параметр. Значение типа Double, указывающее начальную стоимость актива.
Salvage
Обязательный параметр. Значение типа Double, задающее стоимость актива на момент окончания времени его нормальной эксплуатации.
Life
Обязательный параметр. Значение типа Double, задающее время нормальной эксплуатации актива.
Period
Обязательный параметр. Значение типа Double, задающее период расчета амортизации актива.

Исключения

Тип исключения	Номер ошибки	Условие
ArgumentException	5	Salvage < 0, Period > Life или Period <=0.

См. столбец "Номер ошибки", если выполняется обновление приложений Visual Basic 6.0, в которых используется неструктурированная обработка ошибок. (Можно сравнить номер ошибки с Свойство Number (объект Err).) Однако по возможности следует заменять такую систему управления ошибками на Обзор структурной обработки исключений в Visual Basic.

Заметки

Значения аргументов Life и Period должны быть выражены в одних и тех же единицах. Например, если аргумент Life задается в месяцах, то аргумент Period также должен быть задан в месяцах. Все аргументы должны быть положительными числами.

Пример

В этом примере используется функция 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)