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

Функция

DDB

Синтаксис

DDB(cost, salvage, life, period[, factor])

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

Параметры

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

Описание

Cost

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

Salvage

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

Life

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

Period

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

Factor

Необязательный. Выражение типа Variant, указывающее фактор расчета снижения стоимости. Если этот аргумент опущен, используется значение по умолчанию 2 (двойное убывание).

Замечания

Функция использует именованные аргументы. Вычисление снижения стоимости по методу с ускоренной амортизацией обеспечивает учет наиболее быстрого снижения стоимости в начальный период эксплуатации.
Аргументы life и period должны задаваться в одних и тех же единицах. Например, если длительность периода эксплуатации life выражена в месяцах, period также следует указать в месяцах. Все аргументы должны иметь положительные значения.
Расчет значения функции DDB производится по следующей формуле:

Снижение стоимости за period = ((cost – salvage) * factor) / life

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

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


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

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

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

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

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

 
     
  VBNet online (всего: 51576)  
 

Логин:

Пароль:

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


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