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

Функция

SYD

Синтаксис

SYD(cost, salvage, life, period)

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

Параметры

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

Описание

Cost

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

Salvage

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

Life

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

Period

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

Замечания

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

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

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


Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 
DepYear = CInt(InputBox("За какой год вычислить снижение стоимости?"))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "Введите число от 1 до " & LifeTime
    DepYear = CInt(InputBox("За какой год вычислить снижение стоимости?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)

MsgBox "Снижение стоимости за " & DepYear & " год равно " & Format(PDepr, Fmt) & "."

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

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

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

 
     
  VBNet online (всего: 51605)  
 

Логин:

Пароль:

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


В чате сейчас человек
 
     
  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 | Пишите нам