Одним из источников доходов в бюджете являются налоги. Общие принципы построения налоговой системы в России определяет Закон «Об основах налоговой системы в Российской Федерации».

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

Налогообложение - это метод распределения прибавочной стоимости между хозяйствующим субъектом и государством. Налогообложение базируется на ряде принципов, главные из которых - равномерность и определенность. Равномерность означает единый подход государства к налогоплательщикам с точки зрения всеобщности, единства правил, а также равнонапряженности налогового изъятия. Суть принципа определенности состоит в том, что порядок налогообложения устанавливается заранее, так что размеры налога и сроки его уплаты известны заблаговременно. Государство определяет размер налогов, срок внесения их и меры взыскания к тем субъектам, которые нарушают предписания, содержащиеся в правовых нормах. Ни одному налогоплательщику за вносимые в бюджет средства государство непосредственно никакого эквивалента не предоставляет. Безвозмездность налоговых платежей является одной из черт, составляющих их юридическую характеристику. Законом «Об основах налоговой системы в Российской Федерации» взимаемые налоги впервые были разделены на три группы:

- федеральные - налог на прибыль организаций, налог на добавленную стоимость, единый социальный налог;

- республиканские - налог на имущество организаций, транспортный налог;

- местные - земельный налог.

Налоговые ставки устанавливаются высшим органом законодательной власти РФ и другими органами государственной власти. По налогам введены различные льготы, которые применяются только в соответствии с законодательством.

Налог на прибыль c 1 января 2002 г. в налогообложение банков и других кредитных учреждений внесены существенные изменения. Эти изменения затронули прежде всего доходы. Для всех учреждений кредитной системы установлен общий порядок обложения, действующий для юридических лиц России и определенный Законом РФ «О налоге на прибыль предприятий и организаций» (от 27 декабря 1991 г.) с последующими дополнениями и изменениями. Помимо коммерческих банков и других кредитных учреждений к обложению с прибыли, полученной от деятельности, не связанной с регулированием денежного обращения, теперь привлечены ЦБ РФ и его учреждения. Обложение кредитной системы по прибыли, а не по доходу, как было раньше, совпадает с налоговой практикой развитых стран.

Российский налог на прибыль банков - это возврат к практике 1990-1991 гг. Учреждения банковской системы платят налог на прибыль, который регулируется Инструкцией Государственной налоговой службы РФ «О порядке исчисления и уплаты в бюджет налога на прибыль предприятий и организаций» (от 6 марта 1992 г.) с учетом последующих изменений и дополнений. Максимальная ставка налога на прибыль в 1994 г. установлена в размере до 43% налогооблагаемой базы кредитных учреждений (13% в республиканский бюджет РФ и 22-30% в бюджеты субъектов федерации по решению их государственной власти). Эта база исчисляется в соответствии с Положением «Об особенностях определения налогооблагаемой базы для уплаты налога на прибыль банками и другими кредитными учреждениями», утвержденным постановлением Правительства РФ от 16 мая 1994 г. Данное Положение состоит из четырех разделов, определяет содержание объекта обложения и порядок расчета прибыли для всех плательщиков кредитной системы.

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

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

2. Комиссионные и иные сборы (плата) за переводные, инкассовые и другие банковские операции, в том числе за услуги по осуществлению корреспондентских отношений.

3. Плата за услуги за открытие и ведение расчетных, валютных и иных счетов, а также за оказание консультационных, экспертных и других услуг.

4. Доходы от факторинговых, трастовых, форфейтинговых операций.

5. Доходы по гарантийным и акцептным операциям.

6. Плата за услуги населению.

7. Плата за инкассацию, за перевоз денежных средств, ценных бумаг и другой документации.

8. Доходы за работу по размещению государственных ценных бумаг и резервов федерального казначейства РФ и его территориальных органов.

9. Доходы по операциям с ценными бумагами.

10. Доходы от операций с иностранной валютой, драгоценными металлами и др.

11. Доходы от сдачи в аренду имущества.

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

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

14. Денежные и основные средства, материальные и нематериальные актины, безвозмездно передаваемые банку юридическими или физическими лицами.

15. Доходы от приобретенных брокерских мест на биржах.

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

17. Проценты и комиссионные сборы, полученные банком по операциям за прошлые годы.

18. Излишки кассы банка.

19. Прочие доходы.

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

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

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

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

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

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

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

С переходом на новый порядок налогообложения банки и другие кредитные учреждения получили некоторые дополнительные льготы:

– не облагается налогом на прибыль сумма, направляемая на финансирование капитальных вложений, а также на содержание социально-культурных объектов, находящихся на балансе кредитного учреждения;

– полностью освобождается от налога банковская прибыль, полученная от предоставления целевых кредитов на срок 3 года и более для тех предприятий, которые используют его на развитие собственной производственной базы;

– банки имеют право снизить ставку налога на прибыль в 1,5 раза, если они предоставляют не менее 50 % общей суммы своего кредита на развитие сельскохозяйственного производства и сельскохозяйственным предприятиям, перерабатывающим сельхозпродукцию, а также малым предприятиям (кроме снабженческо-сбытовых, торговых и закупочных);

– не подлежат обложению дивиденды по акциям, выплачиваемые физическим лицам, если они остаются в банке и используются для капитальных вложений;

– налогооблагаемая прибыль банка уменьшается на сумму отчислений в резервные и другие аналогичные фонды, создаваемые в соответствии с законодательством. Данная льгота действует при двух условиях: если сумма отчислений не превышает 50% валовой прибыли и если создаваемые фонды не превышают 25% уставного капитала.

Кроме того, на кредитную систему распространяются все льготы по налогу на прибыль, предусмотренные Законом о налоге на прибыль предприятий и организаций от 27 декабря 1991 г. с последующими дополнениями и изменениями.

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

Документом, изменяющим порядок обложения банков налогом на имущество, является письмо Госналогслужбы РФ от 25 февраля 2004 г. Максимальная ставка повышена с 1 до 2%, но изменение порядка расчета налогооблагаемой базы сокращает выплаты по налогу на имущество банка в 5 - 6 раз.

Имущество для целей налогообложения определяется по среднегодовой стоимости.

Стоимость основных средств и сумма износа для расчета среднегодовой стоимости имущества за 2004 г. принимаются:

– на 01.01.04 г. - с учетом переоценки, проводимой по состоянию на 01.01.04 г.;

– на 01.01.04 г. - без учета переоценки, проводимой по состоянию на 01.01.05 г. Результат указанной переоценки надо учитывать при расчете среднегодовой стоимости имущества в 2005 г.

Следует обратить внимание на то, что вновь организованные кредитные учреждения в течение первого года после регистрации (за исключением созданных на базе ликвидированных или реорганизованных) не платят налог на имущество. Льготы по налогу на имущество, предоставляемые банком, сводятся к следующим:

– изъято из обложения имущество, полученное в аренду по заключенному договору без права последующего выкупа;

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

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

Налог на добавленную стоимость (НДС) - объектом обложения НДС в кредитной системе являются следующие операции:

– выдача поручительства, гарантий и иных обязательств за третьих лиц;

– услуги по инкассации;

– форфейтинговые, факторинговые, трастовые операции;

– консультационные, информационные, экспертные, посреднические (брокерские) услуги;

– сдача в аренду имущества (в том числе по договору лизинга);

– услуги населению (предоставление в пользование индивидуальных сейфов, прием и хранение ценных бумаг, проверка по таблицам очередных тиражей выигрышей облигаций, принятых на хранение);

– оборот по реализации имущества, принадлежащего банку. Этим налогом облагаются:

– рекламные и все другие услуги, за исключением сдачи земли в аренду, а также обороты по реализации товаров внутри банка для собственного потребления, бартерные сделки, безвозмездная (или с частичной оплатой) передача товара (работ, услуг), обороты по реализации предметов залога;

– операции по обработке поручений, требований, отказов от акцепта платежных требований, чеков, выписки дубликатов, а также операции по продаже чековых книжек;

– посреднические операции, совершаемые банком (например, вознаграждение за куплю и продажу иностранной валюты от имени и по поручению клиента).

В облагаемый оборот не включаются:

– средства, полученные (безвозмездно) от других юридических лиц (в виде финансовой помощи);

– доходы, полученные от передачи во временное пользование финансовых ресурсов, при отсутствии лицензии на осуществление банковских операций;

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

Льготы по НДС имеют операции, связанные с обращением валют, денег, банкнот, являющихся законным средством платежа, а также ценные бумаги (акции, векселя, облигации, сертификаты), за исключением брокерских и иных посреднических услуг. Сокращен период возмещения НДС по основным средствам с 2 лет до 6 месяцев. Эта льгота используется, если основные средства приобретены с НДС в 2003 г. и их стоимость не списана.

Банки, закупившие оборудование за рубежом и уплатившие НДС таможенным органам, имеют право на полное возмещение суммы налога после введения этих фондов в эксплуатацию.

Выполнение операций банка по кредитному договору, а также по договорам расчетного и кассового обслуживания освобождаются от НДС. Ставка НДС для банков и других кредитных учреждений установлена на уровне 20%.

1.2 Понятие кредитных ресурсов

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

Ресурсы коммерческого банка (банковские ресурсы) - это его уставный капитал и фонды, а также средства, привлеченные банками в результате проведения пассивных операций и используемые для активных операций банка, но известно, что не вся совокупность мобилизованных в банке средств свободна для совершения активных кредитных операций банка. Это требует в свою очередь определения кредитного потенциала банка.

Не вся совокупность мобилизованных в банке средств свободна для совершения активных кредитных операций банка. Это требует определения понятия кредитного потенциала банка: «Кредитный потенциал - это совокупность мобилизованных в банке средств за минусом резерва ликвидности».

Необходимо произвести расчет суммы начисленных и полученных процентов по кредитным ресурсам. Для того чтобы упростить этот процесс и увеличить скорость и производительность персонала банка требуется автоматизировать процесс расчета суммы начисленных и полученных процентов, для этого и было создано приложение «Автоматизация расчета суммы начисленных и полученных процентов по кредитам».

Область применения данного приложения - банковская сфера. Эта задача является одной из главных задач современного коммерческого банка и тесно связана с кредитными операциями.

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

Рисунок 2.1 - Форма «Виды кредитов»

2.3.4 Выходные данные

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

Рисунок 2.2 - Форма «Виды кредитов»

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

Для эксплуатации программного продукта «Автоматизация расчета суммы начисленных и полученных процентов» не требуется особых усилий. Для этого нужно открыть приложение Borland Delphi 7.

Для работы с приложением необходимо открыть необходимую форму. (рисунок 2.3)

Рисунок 2.3 - Форма «Виды кредитов»

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

Интерфейс дружелюбен и прост. Для того чтобы добавить запись нужно нажать на поле ввода и ввести необходимые данные в столбце «Сумма кредита». (рисунок 2.4)

Рисунок 2.4 - Поле для ввода необходимой информации

Для того чтобы получить результат суммы процентов нужно нажать на выбранную кнопку (рисунок 2.5). Нажатие кнопки - это результат вывода суммы процентов за определенный месяц.

Рисунок 2.5 - Результат вывода суммы процентов за 1 месяц

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

Рисунок 2.6 - Контрольный пример

Из рисунка 2.6 видно, что сумма начисленных и полученных процентов за 1 месяц = 1397,26 рублей. Результаты вычисления округляются до двух знаков после запятой.

ЗАКЛЮЧЕНИЕ

После выполнения курсового проекта по дисциплине «Информационные системы в управлении» были получены практические навыки по разработке программ для операционных систем семейства Windows.

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

– рассчитывать сумму процентов за определенный период (в данном случае за год);

– выводить результаты в удобном пользователю виде;

– сравнивать результаты расчетов между собой.

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

Список используемой литературы

1. Левитин, А.В. Алгоритмы. Введение в разработку и анализ../ В. Левитин. - М.: Вильямс, 2006 - 576 с.

2. Голицына, О.Л., Основы алгоритмизации и программирования (2-е издание)./ И.И. Попов, О.Л. Голицына - М.: Инфа-М, 2006 - 432 с.

3. Петгольц Ч. Программирование для Microsoft Windows на C#. В 2-х томах. Том 1. Пер. с англ./ Ч. Петгольц - М.: Издательско-торговый дом «Русская редакция», 2002. - 576 с.

4. Петгольц Ч. Программирование для Microsoft Windows на C#. В 2-х томах. Том 2. Пер. с англ./ Ч. Петгольц - М.: Издательско-торговый дом «Русская редакция», 2002. - 624 с.

5. Левахин Г.З. Разработка приложений на языке C#М. : Вильямс, 2006 - 576 с.

6. Игорева, Е.Л., Основы алгоритмизации и программирования (3-е издание)./ И.И. Попов, О.Л. Игорева - М. : Инфа-М, 2006 - 432 с.

7. Петгольц Ч. Программирование для Microsoft Windows на C#. В 3-х томах. Том 2. Пер. с англ./ Ч. Петгольц - М.: Издательско-торговый дом «Русская редакция», 2002. - 576 с.

8. Бережная Е.В. Математические методы моделирования экономических систем. - М.: Финансы и статистика, 2001

9. Семенов М.И., Трубилин И.Т., Лойко В.И., Барановская Т.П. Автоматизированные информационные технологии в экономике . Учебник. - М.: Финансы и статистика, 2003, 416 с.

10. Основы финансовых вычислений : учеб. пособие / М. С. Шемякина; Краснояр. гос. торг.-экон. ин-т. - Красноярск, 2007. - 68 с.

11. Коммерческие банка: методы оценки надежности // Банковское дело. № 1. 1998.

12. Королев О.Г. Анализ процентной прибыли коммерческого банка. // Деньги и кредит. № 6. 1997.

13. Лунев Н.Н. анализ качества функционирования коммерческого банка Банковское дело. № 12. 1997.

14. Михайлов А.Г. Коммерческие банки: методы оценки надежности. Банковское дело. № 1. 1998.

15. Моделирование рисков в коммерческом банке // Банковские технологии. № 1. 1998.

ПРИЛОЖЕНИЕ А

Код программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label6: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Label7: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Edit7: TEdit;

Edit9: TEdit;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Button13: TButton;

Button14: TButton;

Button15: TButton;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button20: TButton;

Button21: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Edit8: TEdit;

Button25: TButton;

Button26: TButton;

Button27: TButton;

Button28: TButton;

Button29: TButton;

Button30: TButton;

Button31: TButton;

Button32: TButton;

Button33: TButton;

Button34: TButton;

Button35: TButton;

Button36: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

procedure Button29Click(Sender: TObject);

procedure Button30Click(Sender: TObject);

procedure Button31Click(Sender: TObject);

procedure Button32Click(Sender: TObject);

procedure Button33Click(Sender: TObject);

procedure Button34Click(Sender: TObject);

procedure Button35Click(Sender: TObject);

procedure Button36Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit4.Text)/365*30)

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*2))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*3))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*4))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*5))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*6))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*7))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*8))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*9))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*10))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr((8333+(StrToFloat(Edit4.Text)-8333*11))*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

Edit7.Text:=FloatToStr(8333*StrToFloat(Edit1.Text)/365*30)

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr(StrToFloat(Edit2.Text)*StrToFloat(Edit5.Text)/365*30)

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*2))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*3))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*4))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*5))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*6))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*7))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*8))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button21Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*9))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button22Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*10))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button23Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr((8333+(StrToFloat(Edit5.Text)-8333*11))*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button24Click(Sender: TObject);

begin

Edit8.Text:=FloatToStr(8333*StrToFloat(Edit2.Text)/365*30)

end;

procedure TForm1.Button25Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr(StrToFloat(Edit3.Text)*StrToFloat(Edit6.Text)/365*30)

end;

procedure TForm1.Button26Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*2))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button27Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*3))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button28Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*4))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button29Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*5))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button30Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*6))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button31Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*7))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button32Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*8))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button33Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*9))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button34Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*10))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button35Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr((8333+(StrToFloat(Edit6.Text)-8333*11))*StrToFloat(Edit3.Text)/365*30)

end;

procedure TForm1.Button36Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr(8333*StrToFloat(Edit3.Text)/365*30)

end;

end.

Размещено на Allbest.ru