Автоматизация расчета будущей стоимости платежей, значений текущих вкладов и займов

 Термин дисконтирование  в широком смысле означает  определение значения стоимостной  величины на некоторый момент  времени при условии, что в  будущем она составит заданную  величину.

Не редко такой расчет называют приведением стоимостного показателя к заданному моменту  времени, а величину P называют приведенной (современной или текущей) величиной F. Таким образом, дисконтирование  – приведение будущих денег к  текущему моменту времени, и при  этом не имеет значения, имела ли место в действительности данная финансовая операция или нет, а также  независимо от того, можно ли считать  дисконтируемую сумму буквально  наращенной.

Именно дисконтирование  позволяет учитывать в стоимостных  расчетах фактор времени, поскольку  дает сегодняшнюю оценку суммы, которая  будет получена в будущем. Привести стоимость денег можно к любому моменту времени, а не обязательно  к началу финансовой операции.

Исходя из методики начисления процентов, применяют два вида дисконтирования:

• математическое дисконтирование по процентной ставке;
• банковский учет по учетной ставке.

Математическое дисконтирование - определение первоначальной суммы долга, которая при начислении процентов по заданной величине процентной ставки (i) позволит к концу срока получить указанную наращенную сумму:

• для простых процентов:

P = F / (1 + n * i)                                             (1.4)

 

• для сложных процентов:

P = F / (1 + i)ⁿ                                                (1.5)

 

Современная величина и процентная ставка, по которой проводится дисконтирование, находятся в обратной зависимости: чем выше процентная ставка, тем  при прочих равных условиях меньше современная величина.

В той же обратной зависимости  находятся современная величина и срок финансовой операции: чем  выше срок финансовой операции, тем  меньше при прочих равных условиях современная величина.

 

 

2 ОПИСАНИЕ ПРОЕКТНЫХ  РЕШЕНИЙ

2.1 Обоснование  разработки

 

Основанием для создания данного  программного средства являются:

• необходимость оперативного расчета будущей стоимости платежа по просьбе клиента банка;
• необходимость автоматизации рутинной работы сотрудников банка;
• своевременное предоставление отчетности о суммах вкладом и замов, сроках их выплаты и погашения.

Разработанный программный  продукт непосредственно предназначен для автоматизации расчетов будущей стоимости платежей, значений текущих вкладов и займов на основе постоянной процентной ставки, а так же предусмотрена возможность составления отчета по совершенным операциям.

2.2 Концептуальное  описание задачи

 

Спроектированная информационная система должна получать данные о проведенных операциях по вкладам и займам за любой промежуток времени. На основании этих данных осуществляется расчет будущей стоимости платежей.

Рассчитанные значения и  параметры операций вводятся и хранятся в базе данных. На основе этой информации пользователем осуществляется формирование отчета по проведенным операциям.

2.3 Разработка  проектных решений по созданию  информационной базы

 

В ходе проектирования было разработано приложение в среде Borland Delphi 7, предназначенное для автоматизации расчетов будущей стоимости платежей, вкладов и займов, а также предоставления отчета о совершенных операциях.

2.4 Разработка  проектных решений по программному  обеспечению

2.4.1 Разработка  алгоритма работы программы

 

Алгоритм работы программы  следующий: пользователь вводит  с  клавиатуры значения необходимых параметров в соответствующие поля ввода. После  чего происходит расчет интересующей величины.  На основании полученных расчетных данных заполняется таблица, содержание которой представляется в виде отчета по совершенным операциям.

2.4.2 Руководство пользователя

 

Для начала работы с приложением  необходимо запустить на выполнение файл Project1.exe. На экране появится главное окно приложения (рисунок 2.1).

Меню приложения содержит следующие пункты:

1. Расчет стоимости:

• Простые %;

• Сложные %;

2. Дисконтирование:

• Простые %;
• Сложные %;

3. Отчет;

4. Справка;
5. Выход.

 

 

 

Рисунок 2.1 – Главное окно приложения

При выборе пункта меню Расчет стоимости ® Сложные % на экран будет выведено окно для расчета будущей стоимости платежей, в котором необходимо ввести начальную сумму, процентную ставку и количество периодов в соответствующие поля. А так же выбрать метод начисления. Далее нажать кнопку Расчет, после чего будет выведена будущая стоимость платежа (рисунок 2.2).

Аналогично происходит расчет будущей стоимости по формуле  простых процентов при выборе пункта меню Расчет стоимости ® Простые_%.

По нажатию кнопки ОК происходит закрытие окна.

Рисунок 2.2 – Форма расчета  будущей стоимости

При выборе пункта меню Дисконтирование ® Простые % (Сложные_%) на экран выводится окно для расчета начальной суммы платежа (рисунок 2.3).

Рисунок 2.3 – Форма расчета  начальной суммы

При выборе пункта меню Справка на экран появится окно справочной информации с указанием формул, по которым ведется расчет (рисунок 2.4).

Рисунок 2.4 – Окно справочной информации

 

При выборе пункта меню Отчет на экран будет выведено окно с таблицей, содержащей данные о совершенных операциях (рисунок 2.5). Существует возможность удаления, добавления и модификации содержимого таблицы. А так же при нажатии кнопки Отчет будет осуществлен запуск приложения Microsoft Office Access, содержащего данные представленной таблицы в форме отчета, печатная форма которого представлена в приложении Б.

Рисунок 2.5 – Отчет о  займах и вкладах

При выборе пункта меню Выход осуществляется закрытие приложения.

2.4.3 Описание контрольного примера

 

Для проверки правильности работы приложения, рассчитаем будущую стоимость платежа средствами Microsoft Office Excel, применив формулу =БС (Ставка; Кпер;  ;Пс) (рисунок 2.6). Для расчета используем те же данные, что были введены в форму расчета будущей стоимости (рисунок 2.2).

Рисунок 2.6 – Расчет будущей  стоимости в Excel

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

 

ЗАКЛЮЧЕНИЕ

 

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

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

С помощью разработанного программного продукта сотрудники банка  могут быстро, а главное правильно  рассчитать данные, необходимые по запросу клиента.

 

 

СПИСОК ЛИТЕРАТУРЫ

 

1. Едронова В.Н., Хасянова С.Ю. Кредитный договор как основа взаимоотношений банка и заемщика  // Финансы и кредит. – 2009, № 2. 
2. Лаврушин О.И. Банковское дело: Учебник / О.И. Лаврушин, И.Д. – 6-е изд. – М.: КНОРУС, 2008.
3. Маркова О.М. Коммерческие банки и их операции: Учебное пособие / О.М. Макарова. – М.: Банки и биржи, ЮНИТИ, 2008.
4. Кураков Л.П., Тимирясов В.Г., Кураков B.JI. Современные банковские системы: Учеб. пособие. - 3-е изд., перераб. и доп. - М.: Гелиос АРВ, 2000.
5. Батракова Л.Г. Экономический анализ деятельности коммерческого банка / Л.Г. Батракова. – М.: Логос, 2008.
6. Бухгалтерский учет и отчетность в банке по новому Плану счетов: Учебно- практический курс / Резчикова А.С., Родионова В.Г., Артемова Л.В., Назарова А.Г. - М.: Дело и Сервис, 1998.
7. Неволина Е.В. Об оценке кредитоспособности заемщиков // Деньги и кредит. – 2008, №10.
8. Информационные системы в экономике: Учебник / Под ред. проф. В. В. Дика. – М.: Финансы и статистика, 1996. – 272  с.
9. Автоматизированные  информационные технологии в экономике: Учебник / Под ред. Г. А. Титоренко. – М.: Компьютер,  ЮНИТИ,  1998. – 400 с.
10. Бухгалтерский учет в коммерческих банках / Козлова Е. П., Галанина Е. Н. - М.: Финансы и статистика, 1999.

 

 

ПРИЛОЖЕНИЕ A Схема алгоритма задачи

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ Б  Отчет

 

 

ПРИЛОЖЕНИЕ В Код

 

Unit3. Форма Расчет будущей стоимости (сложные %)

 

unit Unit3;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

 

type

  TForm3 = class(TForm)

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    RadioGroup1: TRadioGroup;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    RadioButton4: TRadioButton;

    RadioButton5: TRadioButton;

    Label5: TLabel;

    Label6: TLabel;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label7: TLabel;

    Label8: TLabel;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

{$R *.dfm}

 

procedure TForm3.Button1Click(Sender: TObject);

 var  p, f, i, n : double;

 

begin

      p:=  StrToFloat(Edit1.Text);

  i:=  StrToFloat(Edit2.Text);

  n:=  StrToFloat(Edit3.Text);

 

   if RadioButton1.Checked

    then begin

    f:= p*(Exp(n*ln(1+i/100)))

    end

else

    if RadioButton2.Checked

    then begin

     f:= p*(Exp((n*2)*ln(1+(i/2)/100)))

    end

else

    if RadioButton3.Checked

    then begin

    f:= p*(Exp((n*4)*ln(1+(i/4)/100)))

    end

else

    if RadioButton4.Checked

    then begin

    f:= p*(Exp((n*12)*ln(1+(i/12)/100)))

    end

else

    if RadioButton5.Checked

    then begin

    f:= p*(Exp((n*365)*ln(1+(i/365)/100)))

    end;

    f := round(f * 100 + 0.5) / 100;

    Label6.Caption:= FloatToStr(f);

 

    end;

procedure TForm3.Button2Click(Sender: TObject);

begin

        Form3.Hide;

end;

 

end.

 

Unit4. Форма Дисконтирование (простые %)

 

unit Unit4;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

 

type

  TForm4 = class(TForm)

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label1: TLabel;

    RadioGroup1: TRadioGroup;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;