Visual Basic, .NET, ASP, VBA, VBScript
 
  Справочники  
  Справочник по Windows API Справочник по Visual Basic  
     
  Функция SLN  
 

Функция

SLN

Синтаксис

SLN(cost, salvage, life)

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

Параметры

Наименование

Описание

Cost

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

Salvage

Обязательный. Выражение типа Double, указывающее стоимость фондов к концу периода эксплуатации.

Life

Обязательный. Выражение типа Double, указывающее длительность периода эксплуатации.

Замечания

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

Пример использования

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


Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, PDepr
Const YEARMONTHS = 12 'число месяцев в году
Fmt = "###,##0.00" 'денежный формат
InitCost = InputBox("Какова исходная стоимость фондов?")
SalvageVal = InputBox("Какова остаточная стоимость фондов?")
MonthLife = InputBox("Каков период эксплуатации в месяцах?")
Do While MonthLife < YEARMONTHS 'период в годах должен быть >= 1
    MsgBox "Период должен быть не меньше 1 года."
    MonthLife = InputBox("Каков период эксплуатации в месяцах?")
Loop
LifeTime = MonthLife / YEARMONTHS 'преобразует месяцы в годы
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1) 'округляет в годах
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "Снижение стоимости равно " & Format(PDepr, Fmt) & " за год."

Дополнительная информация

Категория: Тригонометрические и финансовые функции

Еще функции: Atn, Cos, DDB, FV, IPmt, IRR, Log, MIRR, NPer, NPV, Pmt, PPmt, PV, Rate, Sin, SLN, SYD, Tan

 
     
  VBNet online (всего: 51526)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам