Функция SLN

Статья
11/05/2008

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

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

Function SLN( _
   ByVal Cost As Double, _
   ByVal Salvage As Double, _
   ByVal Life As Double _
) As Double

Параметры

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

Исключения

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

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

Заметки

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

Пример

Этот пример использует функцию SLN для возврата прямолинейной амортизации актива за один период начальной стоимости актива (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)