Функция SLN

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

Синтаксис

SLN( нач_стоимость;ост_стоимость;время_эксплуатации )

Функция SLN имеет следующие аргументы:

Аргумент

Описание

нач_стоимость

Обязательный аргумент. Значение типа Double, выражающее первоначальную стоимость актива.

ост_стоимость

Обязательный аргумент. Значение типа Double, выражающее стоимость актива по истечении срока службы.

время_эксплуатации

Обязательный аргумент. Значение типа Double, выражающее срок службы актива.

Примечания

Время эксплуатации Аргумент и период должны быть выражены в одинаковых единицах. Значения всех аргументов должны быть положительными числами.

Примеры запросов

Выражение

Результаты:

Выберите SLN ([Лоанамаунт]; [Лоанамаунт] *. 1, 20) как Выражение1 из ФинанЦиалсампле;

Возвращает величину амортизации для основного средства (например, "Лоанамаунт"), стоимость которой является остаточной стоимостью 10%("Лоанамаунт", умноженной на 0,1), учитывая полезную продолжительность актива в течение 20 лет.

Выберите SLN ([Лоанамаунт]; 0; 20) в качестве СлдепреЦиатион от ФинанЦиалсампле;

Возвращает величину амортизации для основного средства (например, "Лоанамаунт") с остаточной стоимостью в $0, учитывая полезную продолжительность актива в течение 20 лет. Результаты отображаются в столбце СлдепреЦиатион.

Пример VBA

Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В данном примере функция SLN возвращает линейную амортизацию актива для одного периода. Для функции задано значение начальной стоимости (InitCost), значение стоимости в конце срока службы актива (SalvageVal) и срок службы актива (в годах) (LifeTime).

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost " & _
"of the asset?")
SalvageVal = InputBox("What's the asset's value " & _
"at the end of its useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."

Примечание:  Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

Нужна дополнительная помощь?

Совершенствование навыков работы с Office
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×