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

Функция

Rate

Синтаксис

Rate(nper, pmt, pv[, fv[, type[, guess]]])

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

Параметры

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

Описание

NPer

Обязательный. Выражение типа Double, указывающее полное число периодов (выплат) за рассматриваемый срок. Например, если заем на приобретение автомобиля взят на четыре года, число месячных периодов (количество выплат) составит 4 * 12 (48).

Pmt

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

PV

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

FV

Необязательный. Выражение типа Variant, указывающее результат, который должен быть достигнут по завершении выплат. Для займа это, очевидно, нулевое значение (заем должен быть погашен). Если же вы копите деньги на обучение ребенка, а всего накопить следует 50 000 долларов за 18 лет, то результатом является сумма в 50000 долларов. Если этот аргумент опущен, подразумевается значение 0.

Type

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

Guess

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

Замечания

Функция использует именованные аргументы. Функция подходит для расчета выплат по закладной (например за дом) или итогов накоплений при ежемесячных банковских взносах. Для всех аргументов выплаченные суммы (депозитные вклады и т.п.) представляются отрицательными значениями; а полученные (дивиденды) положительными. Значение функции Rate определяется итерационным путем. В качестве начального значения используется аргумент guess. Итерации завершаются по достижении точности в 0,00001 процента. Если после 20 итераций результат получить не удается, функция Rate завершает итерационный цикл. В этом случае целесообразно использовать другое начальное значение аргумента guess.

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

'в данном примере используется функция Rate для расчета ставки по займу,
'в качестве входных значений при расчете используется число взносов (TotPmts),
'размер взноса (Payment), текущий объем займа (PVal), результирующий объем займа
'(FVal), число, задающее режим выплат (PayType), а также оценка величины ставки (Guess)


Dim Fmt, FVal, Guess, PVal, Payment, TotPmts, PayType, APR
Const ENDPERIOD = 0, BEGINPERIOD = 1 'режим выплат
Fmt = "##0.00" 'процентный формат
FVal = 0 'для займа обычно 0
Guess = .1 'начинает с 10 процентов
PVal = InputBox("Каков объем займа?")
Payment = InputBox("Какова величина ежемесячного взноса?")
TotPmts = InputBox("Сколько месяцев вы будете делать взносы?")
PayType = MsgBox("Выплаты производятся в конце месяца?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD

APR = (Rate(TotPmts, -Payment, PVal, FVal, PayType, Guess) * 12) * 100
MsgBox "Искомая ставка составляет " & Format(CInt(APR), 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 | Пишите нам