Перейти на главную   
  helloworld.ru - документация и книги по программированию  
helloworld.ru - документация и книги по программированию
    главная     хостинг    
Поиск по сайту:  
Смотрите также
Языки программирования
C#
MS Visual C++
Borland C++
C++ Builder
Visual Basic
Quick Basic
Turbo Pascal
Delphi
JavaScript
Java
PHP
Perl
Assembler
AutoLisp
Fortran
Python
1C

Интернет-технологии
HTML
VRML
HTTP
CGI
FTP
Proxy
DNS
протоколы TCP/IP
Apache

Web-дизайн
HTML
Дизайн
VRML
PhotoShop
Cookie
CGI
SSI
CSS
ASP
PHP
Perl

Программирование игр
DirectDraw
DirectSound
Direct3D
OpenGL
3D-графика
Графика под DOS

Алгоритмы
Численные методы
Обработка данных

Сис. программирование
Драйверы

Базы данных
MySQL
SQL

Другое

Хостинг


Друзья
demaker.ru
Реклама

Лучший хостинг. Аренда серверов




helloworld.ru

I. МАТЕМАТИЧЕСКИЕ ФУНКЦИИ И ПРОЦЕДУРЫ.

7. Функции и процедуры для финансовых вычислений.


Функция InterestRate( NPeriods: Integer; Payment, PresentValue, FutureValue: Extended; PaymentTime: TPaymentTime ): Extended;

Модуль: Math

Описание
Функция вычисляет процентную ставку инвестиций, необходимую для возврата суммы инвестиций PresentValue с дивидендами.
PresentValue - сумма инвестиций.
FutureValue - полная сумма, полученная от инвестиций. Включает возврат первоначальной суммы инвестиций и дивиденды.
NPeriods - количество этапов выплат.
Payment - сумма периодических выплат.
Параметр PaymentTime определяет, происходят выплаты в начале (PtStartOfPeriod) этапа или в его конце (ptEndOfPeriod).

Пример
var
   IRate : Extended;
begin
  ...
   IRate:=InterestRate(1, -100, -1000, 1500, ptEndOfPeriod);
      { IRate:= 0.4 }
  ...
end;

ВНИМАНИЕ!!! Следует аккуратно использовать финансовые функции и внимательно следить за расстановкой знаков плюс/минус в параметрах функций.
Не рекомендуем использовать функцию InterestRate при написании программ, т.к. данная функция работает не корректно.

ВызовРезультат
InterestRate(1, -100, -1000, 1110, ptEndOfPeriod);0.01
InterestRate(1, -100, -1000, 1150, ptEndOfPeriod);0.05
InterestRate(1, -100, -1000, 1200, ptEndOfPeriod);0 (bag)
InterestRate(1, -100, -1000, 1250, ptEndOfPeriod);0.15
InterestRate(1, -100, -1000, 1300, ptEndOfPeriod);0.2

[ Оглавление ]









helloworld.ru © 2001-2021
Все права защищены