Размещено на http://www.allbest.ru/

Введение

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

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

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

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

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



1. Коммерческий банк и его структура

1.1 Понятие коммерческого банка

Значение коммерческих банков в современных кредитных системах столь велико, что необходимо остановиться на функциях этих институтов. Термин "коммерческий банк" возник на ранних этапах развития банковского дела, когда банки обслуживали преимущественно торговлю (commerce), товарообменные операции и платежи. Основной клиентурой были торговцы (отсюда и название "коммерческий банк"). Банки кредитовали транспортировку, хранение и другие операции, связанные с товарным обменом. С развитием промышленного производства возникли операции по краткосрочному кредитованию производственного цикла: ссуды на пополнение оборотного капитала, создание запасов сырья и готовых изделий, выплату зарплаты и т.д. Сроки кредитов постепенно удлинялись, часть банковских ресурсов начала использоваться для вложений в основной капитал, ценные бумаги и т.д. Иначе говоря, термин "коммерческий" в названии банка утратил первоначальный смысл. Он обозначает "деловой" характер банка, его ориентированность на обслуживание всех видов хозяйственных агентов независимо от рода их деятельности.

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

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

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

1.2 Сущность коммерческого банка

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

· центральный (эмиссионный) банк;

· коммерческие банки;

· специализированные финансовые учреждения (страховые, ипотечные, сберегательные и т.д.)

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

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

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

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

К таким конструирующим операциям банка относят:

. прием депозитов;

. осуществление денежных платежей и расчетов;

. выдача кредитов.

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

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

Создание платежных средств тесно связано с депозитной функцией кредитования банковских клиентов. Депозит может возникнуть двумя путями: в результате внесения клиентом наличных денег в банк или же в процессе банковского кредитования. Эти операции по-разному отразятся на величине денежной массы в стране. Если клиент внес деньги до востребования, то они превратились из наличных в безналичные. Общая сумма денег в хозяйстве не изменилась. Если же деньги зачислены на депозит, то общее количество денег в хозяйстве увеличилось, так как банк своей операцией создал новые платежные средства. Обратное действие - уничтожение происходит при снятии клиентом наличных со счета и при списании денег с депозита для погашения кредитов. Способность коммерческих банков увеличивать и уменьшать депозиты и денежную массу широко используется центральным банком, который через систему обязательных резервов управляет динамикой кредита.

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

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



2. Общие сведения о кредитных и депозитных операциях

2.1 Кредитные операции

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

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

2.1.1 Требования к процессу выдачи кредитов

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

Выдача кредита в зависимости от типа клиента может быть осуществлена в следующем порядке:

· юридическим лицам -- в безналичной форме путем зачисления средств на расчётный, текущий или корреспондентский счёт;

· физическим лицам -- в безналичной форме путем зачисления средств на счёт лица в банке либо наличными через кассу банка;

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

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

2.1.2 Расчёт ежемесячных выплат при аннуитентых и дифференцированных платежах

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



2.1.2.1 Аннуитетный платеж

Ежемесячный аннуитетный платеж -- это постоянная сумма, которую заемщик каждый месяц отдает банку. Он складывается из двух составляющих -- возвращения основного долга и начисленных процентов. (Строго говоря, понятие «аннуитет» применимо только к ежегодным выплатам, но на практике сложилось так, что его применяют к равным выплатам с любой периодичностью, в том числе и ежемесячным.)

Формула аннуитетного платежа выглядит следующим образом:

где ЕП -- размер ежемесячного платежа; СК -- сумма кредита; ПС -- годовая процентная ставка; КМ -- количество месяцев (срок, на который выдан кредит). Как мы уже заметили, ежемесячный аннуитетный платеж складывается из двух составляющих -- возвращения основного долга и начисленных процентов:

где ВОД -- возврат основного долга; ЕПВ -- ежемесячные процентные выплаты. На этом сходство в подходах банков заканчивается, и начинаются различия. Состоят они в подходах к вычислению суммы причитающихся процентов. Основных подходов два, разница -- в используемой временной базе. Часть банков исходят из того, что «в году 12 месяцев», и тогда размер ежемесячных процентных выплат определяется по формуле:



где ЕПВ -- ежемесячные процентные выплаты; ОЗ -- остаток задолженности в данном месяце; ПС -- годовая процентная ставка.

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

где ЕПВ -- ежемесячные процентные выплаты; ОЗ -- остаток задолженности в данном месяце; ПС -- годовая процентная ставка; ЧДМ -- число дней в месяце (понятно, что это число меняется от 28 до 31).

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

2.1.2.2 Дифференцированные платежи

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

Сумма платежа по основному долгу равна отношению суммы кредита к количеству месяцев, на который выдан кредит.

Формула расчета суммы платежа по основному долгу имеет следующий вид:

ОД=ПСК/КМ -

где ПСК - полная сумма кредита, КМ - количество месяцев, на которое выдан кредит.

Сумма платежа по основному долгу за неполный месяц имеет вид:

ОД'=ОД*КД/КДМ,

где КД - количество дней, за которое выполняется расчет КДМ - количество дней в расчетном месяце.

Сумма процентов рассчитывается на остаток ссудной задолженности.

ПП = ОСЗ*КД*ГПС/365 ,

где КД - количество дней, за которые выполняется начисление, ГПС - годовая процентная ставка (в долях), ОСЗ - остаток ссудной задолженности.

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



2.2 Депозитные операции

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

В периоды нормального развития экономики банковский вклад является одной из наименее выгодных и наименее рискованных форм вложения денег и может служить в качестве минимального ориентира в расчётах.

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

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

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

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

Исходя из категории вкладчиков, различают следующие виды депозитов:

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

· Депозиты физических лиц.

· По своему экономическому содержанию депозиты принято подразделять на З группы:

· срочные депозиты (с их разновидностью - депозитными сертификатами);

· депозиты до востребования;

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

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



3. Среда MS Excel для автоматизации расчётов и анализа данных

Программа Microsoft Excel - входит в пакет программ Microsoft Office и предназначена для создания электронных таблиц, вычислений в них и создания диаграмм. Как и в программе Microsoft Word в программе Excel можно создавать обычные текстовые документы, бланки, прайс-листы, проводить сортировку, отбор и группировку данных, анализировать и т.п.

3.1 Ввод данных

В программе Excel существует несколько типов данных:

· текстовый

· графический

· числовой

Числовой в свою очередь состоит из

· Числовой (целые числа и числа с дробной частью)

· Денежный (после числа указывается обозначение валюты)

· Процентный (20% = 0,02 )

· Дата и время

(число дней начиная от 01.01.1900г - это целая часть, время - дробная часть)

При вводе данных Excel автоматически пытается распознать тип:



пример текста ; 12; 1.2 или 1,2 ; 123р. ; 18%; 27/05/04 или 27.05.04;

Для изменения типа значения выделите нужные ячейки (белым крестиком) и откройте Формат-Ячейки… и откройте закладку Число. Выберите нужный формат и нажмите кнопку ОК

Программа Excel округляет числовые данные. Для отображения нужного количества чисел после запятой нажмите кнопку - для увеличения числа цифр после запятой или - для уменьшения числа цифр после запятой. Для выравнивания значения по горизонтали служат кнопки, аналогичные кнопкам программы Word:

Для определения параметров текста (шрифта) - воспользуйтесь кнопками

· Для установки разделителей необходимо:

открыть Пуск-Настройка-Панель управления и выбрать Языки и стандарты

на закладке Числа выбрать Разделитель целой и дробной части , или .

на закладке Дата выбрать Разделитель компонентов даты . или / или -

· Для продолжения значений (арифметическая прогрессия) используется механизм автопродолжения.



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

Автопродолжение действует для всех типов данных. При этом числа и даты - увеличиваются (или уменьшаются), а текст - повторяется!

Так, например, можно быстро создать список товаров с номером (см. рис. справа)

3.2 Ввод формул

Выполнение расчетов в таблицах Excel осуществляется при помощи формул.

Для создания формулы, которая будет вычисляться для каждой строки таблицы, необходимо в пустой ячейке ввести знак = после этого нажать на ячейку первого числа (вместо чисел появляется адрес ячейки!), после этого ввести на клавиатуре действие (+,-,*,/) и нажать на вторую ячейку.



После нажатия на клавишу [Enter] или [Tab] в ячейке появится вычисленное значение.

Формулы, как и данные, можно продолжать при помощи автопродолжения

Для некоторых вычислений требуется использовать фиксированную строку или столбец, для этого в формуле используется знак $. Например для таблицы умножения в ячейке F4 необходимо исправить формулу на =$B4*F$2, т.е. зафиксировать первый столбец B и первую строку таблицы 2

Если для всей таблицы используется единая константа то необходимо фиксировать и столбец и строку, т.е. в формулах использовать $J$2

Например, в таблице товаров вычислить налог, значение которого может меняться см. рис.



4. Описание среды программирования VBA

Visual Basic for Applications (VBA) -- немного упрощённая реализация языка программирования Visual Basic, встроенная в линейку продуктов Microsoft Office (включая версии для Mac OS), а также во многие другие программные пакеты, такие как AutoCAD, WordPerfect и ESRI ArcGIS. VBA покрывает и расширяет функциональность ранее использовавшихся специализированных макроязыков, таких как WordBasic. Может использоваться для управления приложением (меню, панели инструментов, формы пользователя, диалоговые окна и т.д.). VBA может также использоваться для создания импорта и экспорта различных форматов файлов.

VBA является интерпретируемым языком. Как и следует из его названия, VBA близок к Visual Basic, но может выполняться лишь в рамках приложения, в которое он встроен. Кроме того, он может использоваться для управления одним приложением из другого, с помощью OLE Automation (например, таким образом можно создать документ Word на основе данных из Excel).

VBA функционально богат и чрезвычайно гибок, но имеет ряд ограничений, включая ограниченную поддержку указателей на функции (используются в Windows API). Имеется возможность использовать (но не создавать) библиотеки DLL.

VBA -- транслируемый язык. Это означает, что его команды сначала преобразуются к исполняемой форме. Контейнеры VBA (Access, Excel, Word) могут сохранять оттранслированную программу в скрытой форме в исходном документе (чтобы не требовалась перекомпиляция). Исполнение кода происходит в виртуальной машине (как в языке Java), что зачастую ошибочно называют интерпретацией. Несмотря на его схожесть со многими старыми диалектами BASIC (особенно MS BASIC), VBA не совместим с ними кроме Microsoft Visual Basic до версии 6 и не совместим с VB.NET.

Чтобы использовать VBA с приложениями (Access, Excel, Word) необходимо использовать соответствующую терминологию и языковые конструкции. Это так называемая «объектная модель приложения». Карта объектной модели является сетевой для Excel, Word. Новичку использование объектной модели может составлять значительную трудность.

Широкое распространение Visual Basic for Applications в сочетании с изначально недостаточным вниманием к вопросам безопасности привело к широкому распространению макровирусов.

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

В будущем Microsoft планирует заменить VBA на Visual Studio Tools for Applications (VSTA) -- инструментарий расширения функциональности приложений, основанный на Microsoft .NET.

4.1 Создание пользовательских форм в VBA

Для перехода в режим создания пользовательских форм нужно

а) открыть из окна Excel окно Visual Basic :

[Tools] - [Macro] - [Visual Basic Editor]

б) во всплывающем окне Visual Basic открыть окно для создания пользовательской формы:

[Insert] - [UserForm]

В результате появится панель UserForm и панель элементов для ее конструирования:



4.2 Панель элементов VBA

Для создания средств пользовательского интерфейса VBA предоставляет следующие элементы:

Label - для создания надписей в UserForm , например, заголовка текстового окна

TextBox - для ввода и вывода значений (строк текста и чисел).

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

Пример анализа пароля в программе:

If TextBox1.Text <> "TVS" Then

Exit Sub

End If

ComboBox - для хранения списка значений. Отображается только один элемент списка.

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

CheckBox - для ввода одного из двух (True, False) или (если установить True свойства TripleState) одного из трех (True, False, Null) значений.

ToggleButton - выполняет те же функции, что и флажок.

OptionButton - выполняет те же функции, что и флажок, но, если в UserForm или в группе (группировка переключателей производится элементом Frame) переключателей несколько, в состояние True можно установить только один переключатель - остальные автоматически перейдут в состояние False.

Frame - для группировки элементов управления. Основное свойство рамки - Caption, позволяющее задать название группы элементов.

CommandButton - для запуска программы.

TabStrip - создаются в UserForm, элементы управления могут размещаться на вкладках, однако, вкладки не обладают свойствами контейнеров. Это значит, что элементы управления фактически будут связаны с UserForm и будут только "просвечивать" через все вкладки.

Можно сделать программным путем элементы управления видимыми на одних вкладках и невидимыми на других.

Пример.

Private TabStrip1_Change()

If TabStrip1.Value = 0 Then

CommandButton1.Visible=False

Else

CommandButton1.Visible=True

End If

End Sub



В результате действия этой процедуры кнопка CommandButton1 будет видна и будет действовать на вкладке 0 и не будет видна и не будет действовать на вкладке 1 и других.

4.3 Создание UserForm

Для создания UserForm необходимо:

а) сконструировать панель UserForm, т.е. разместить на этой панели нужные элементы и определить их свойства (вызвать контекстное меню и выбрать пункт "Свойства");

б) для кнопок CommandButton создать запускаемые ими процедуры на языке VBA. Для этого:

а) двойным щелчком на изображении кнопки CommandButton вызвать окно программы. В этом окне автоматически создается первая и последняя строка процедуры:

Private Sub CommandButtonN_Click()

End Sub

б) ввести текст процедуры.



5. Постановка задачи

Разработать программу для автоматического расчета кредитных и депозитных операций при помощи Visual Basic for Applications. Программа должна запрашивать у пользователя все входные данные с помощью формы или диалоговых окон, автоматически рассчитывать все выходные данные кредитных и депозитных операций, автоматически строить графики на основе рассчитанных значений на другом листе книги. Пользователь должен иметь возможность сохранить рабочую книгу под именем клиента. Также разработанная программа должна автоматически предусматривать возможность выбора пользователем одного из видов платежа (аннуитетный или дифференцированный) для кредитных операций и одного из методов расчета депозитных операций. При ее разработке учесть следующие параметры (Вариант №18):

Кредитная операция	Депозитная операция
Срок кредитования		Срок депозитной операции
от 1 до 3 лет	от 3 до 5 лет	от 5 до 40 лет	первоначальный взнос от суммы кредита в %	до 2 лет	до 5 лет	до 10 лет	минимальная сумма для депозитной операции
16	12	9	30	5	7	8	350000

Для наглядности графика изменили процентную ставку депозита на 50, 70 и 80% соответственно.



6. Схемы алгоритмов пользовательских форм

6.1 Схема алгоритма работы UserForm1

Рис. 6.1- Схема алгоритма работы UserForm1

Эта форма позволяет перейти либо к расчету кредитных операций{1}, либо к расчету депозитных операций{2},либо посмотреть UserForm2 {3}.При нажатии кнопки «Выход» вначале появляется запрос о выходе из программы, затем, после подтверждения, происходит выход из программы{4}.Копия экрана работающей программы приведена в приложении 1 рис.2. Исходный код подпрограмм приведен в приложении 2 под ссылками, заключенными в квадратные скобки.



6.2 Схема алгоритма работы UserForm3

Рис 6.2- Схема алгоритма работы UserForm3

В этой форма вводятся исходные данные : Ф.И.О. клиента, сумма и срок кредитования; выбирается тип платежа. После нажатия кнопки «рассчитать», производится расчет дифференциального или аннуитентного кредита (блок 1) и строится график расчетов{5} (блок 4). Также можно сохранить полученные результаты, после нажатия кнопки «сохранить» {6} (блок 2). Для выхода из формы предусмотрена кнопка «отмена» {7} (блок3). Копия экрана приведена в приложении 1 рис.3 Исходный код подпрограмм приведен в приложении 2 под ссылками, заключенными в квадратные скобки.



6.3 Схема алгоритма работы UserForm4

Рис.6.3- Схема алгоритма работы UserForm4

В этой форма вводятся исходные данные: Ф.И.О. клиента, сумма и срок депозита; выбирается метод расчета. После нажатия кнопки «рассчитать», производится расчет депозита методом простого или сложного процента (блок1) и строится график расчетов {8} (блок 3). Также можно сохранить полученные результаты, после нажатия кнопки «сохранить» {6} (блок 2). Для выхода из формы предусмотрена кнопка «отмена» {7} (блок5). Копия экрана работающей программы находится в приложении 1 рис.7 Исходный код подпрограмм приведен в приложении 2 под ссылками, заключенными в квадратные скобки.



7. Используемые подпрограммы

7.1 Подпрограмма создания рабочей книги

Рис. 7.1 - Схема алгоритма подпрограммы создания рабочей книги

После запуска подпрограммы {9}появляется запрос о подтверждении запуска (блок2), при положительном ответе создается рабочая книга (блок3) , в которой добавляются рабочий лист «Лист1» и удаляются листы, созданные по умолчанию. Копия экрана работающей программы находится в приложении 1 рис.1 Исходный код подпрограмм приведен в приложении 2 под ссылками, заключенными в квадратные скобки.



7.2 Процедура сохранения файла

Рис 7.2 - Схема алгоритма процедуры сохранения файла

Процедура запускается при нажатии кнопки «Сохранить». После запуска подпрограммы {6}появляется окно, в котором можно выбрать путь сохранения. Файл сохраняется под именем, введенным в окне «Ф.И.О. клиента» Копия экрана работающей программы находится в приложении 1 рис.11

7.3 Процедура выхода из программы

Рис. 7.3 - Схема алгоритма процедуры выхода из программы



Процедура {4}запускается при нажатии кнопки «Выход», после чего появляется запрос у пользователя на подтверждение выхода (блок 2). При положительном ответе происходит закрытие рабочей книги (блок 3) , при отрицательном - рабочая книга не закрывается. Копия экрана работающей программы находится в приложении 1 рис.12

7.4 Процедура расчета кредитов



Рис. 7.4 - Схема алгоритма процедуры расчета кредитов

При запуске данной процедуры [5] проверяется правильность введенных пользователем данных (блоки 1,3,4) и определяется процентная ставка кредита (блоки 5,6,7). Далее очищаются все ячейки рабочего листа, затем ячейки заполняются первоначальной информацией, устанавливается их формат и ширина столбцов (блок 9). В зависимости от выбранного пользователем переключателя производится расчет выбранного платежа (блоки 11-14 и 17-20). После расчета все полученные данные выводятся в рабочую книгу (блоки 15, 21), а также строится график по вычисленным данным (блоки 16, 22). Копия экрана работающей программы находится в приложении 1 рис.3 Исходный код подпрограмм приведен в приложении 2 под ссылками, заключенными в квадратные скобки.

7.5 Процедура расчета депозитов



Рис. 7.5 - Схема алгоритма процедуры расчета депозитов

При запуске данной процедуры проверяется правильность введенных пользователем данных (блоки 1,3,4) и определяется процентная ставка(блоки 5-7). Далее очищаются все ячейки рабочего листа, затем ячейки заполняются первоначальной информацией, устанавливается их формат и ширина столбцов (блок 9). Далее производится расчет депозитов простым и сложным способом(блоки 11-14 и 17-19). После расчета все полученные данные выводятся в рабочую книгу(блоки 15,21), а также строится график по вычисленным данным(блоки 16,22). Копия экрана работающей программы находится в приложении 1 рис.7 Исходный код подпрограмм приведен в приложении 2 под ссылками, заключенными в квадратные скобки.



Заключение

В данной курсовой мы ознакомились с использованием Visual Basic for Applications в автоматизации банковских операций. Также освоили такие теоритические вопросы:

1. Структура банка.

2. Виды банковских операций.

3. Среда MS Excel для автоматизации расчётов и анализа данных.

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



Литература

кредитный банк программирование платеж

1. Андрей Гарнаев. « Использование MS Excel и VBA в экономике и финансах».

2. Методические пособия по VBA

3. Конспект лекций



Приложение 1. Пример выполнения программы

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

Рис. 1-копия экрана работающей подпрограммы создания рабочей книги

После нажатия на кнопку «Да» создается рабочая книга с двумя рабочий лист «Лист1», далее запускается форма для ввода данных: При нажатии кнопки «Нет» программа завершается.

Рис. 2-копия экрана работающей формы UserForm1

Для расчета кредитной операции выбирается соответствующая форма, нужный тип платежа и вводятся, требуемые данные. Для примера, выберем дифференцированный платеж:



Рис. 3-копия экрана работающей формы UserForm3

На рабочий лист «Лист1» выводятся вычисленные параметры кредита и график расчета.

Рис. 4- копия экрана рабочего листа «Лист1» с вычисленными значениями кредита



Рис.5-копия экрана графика расчета дифференциального кредита

Рис.6-копия графика расчета аннуитентного кредита



Для расчета депозитной операции выбирается соответствующая форма, и вводятся необходимые данные:

Рис.7- копия экрана работающей формы UserForm4

После нажатия кнопки «Рассчитать» на рабочий лист выводятся все вычисленные данные, и выводится график расчета:

Рис.8- копия экрана рабочего листа «Лист1»с вычисленными значениями депозита



Рис.9- копия экрана графика расчета депозита методом простого процента

Рис.10- копия экрана графика расчета депозита методом сложного процента



Для сохранения рабочей книги нажимаем кнопку “Сохранить”, после чего появляется окно сохранения файла, куда вводится нужное имя файла и путь сохранения файла.

Рис.11- копия экрана окна сохранения файла рабочей книги

Для выхода нажимаем кнопку “Выход”, после чего появляется окно запроса на подтверждение выхода.

Рис.12- копия экрана окна выхода из рабочей книги



Приложение 2. Листинг программы

Private Sub Workbook_Open() {9}

'запрос на выполнение операций расчета кредитов и депозитов

Start = MsgBox("Вы хотите провести расчет кредитов и депозитов ?", vbYesNo + vbQuestion, "Кредитные и депозитные операции")

If Start = vbYes Then

Workbooks.Add

UserForm1.Show

ThisWorkbook.Close

End If

End Sub

UserForm1

Private Sub CommandButton1_Click() {1}

UserForm3.Show

End Sub

Private Sub CommandButton2_Click(){2}

UserForm4.Show

End Sub

' процедура выхода из программы

Private Sub Vihod_Click(){4}

' запрос у пользователя на подтверждение выхода

Ex = MsgBox("Вы действительно хотите выйти?", vbYesNo + vbQuestion, Zagl)

If Ex = vbNo Then Exit Sub

' закрытие рабочих книг

ActiveWorkbook.Close False

ThisWorkbook.Close

End Sub

Private Sub CommandButton4_Click(){3}

UserForm2.Show

End Sub

Option Explicit

Dim Sv, Ex, Op, SaveName 'объявление переменых

Dim Sum As Single ' сумма кредита

Dim Sum1, Sum2, Sum3 As Single ' сумма по осн. долгу, процентам и общая сумма

Dim Ps As Single 'процентная ставка

Dim objXLApp As Object ' описываем переменную как объект

Dim objWbNewBook As Object ' описываем переменную как объект

Dim plat As Single ' ежемесячная плата

Dim osn As Single ' плата по основному долгу

Dim proc As Single ' плата по процентам

Dim ostatok As Single ' остаток задолженности

Dim l As String

Dim i As Integer

Dim Sroc As Integer ' срок кредитовани/депозита

Const Zagl As String = "Кредитные и депозитные операции"

UserForm3

' процедура рассчета кредитов

Private Sub RaschetCR_Click()

Workbooks.Add

If SumCr.Value = "" Then ' показать ошибку, если не введена сумма кредита

MsgBox "Введите сумму кредита", , Zagl

Exit Sub

End If

If SrokCr.Value = "" Then ' показать ошибку, если не введен срок кредита

MsgBox "Введите срок кредитования", , Zagl

Exit Sub

End If

If IsNumeric(SumCr.Value) = False Then ' показать ошибку, если неправильно введена сумма кредита

MsgBox "Неправильно введена сумма кредита", , Zagl

Exit Sub

End If

If IsNumeric(SrokCr.Value) = False Then ' показать ошибку, если неправильно введен срок кредитования

MsgBox "Неправильно введен срок кредитования", , Zagl

Exit Sub

End If

' присвоение переменным значений, вводимых пользователем

Sum = CSng(SumCr.Value)

Sroc = CInt(SrokCr.Value)

' проверка на правильность ввода срока кредитования

If Sroc < 1 Then

MsgBox "Минимальный срок кредитования - 1 год"

Exit Sub

End If

If Sroc > 40 Then

MsgBox "Максимальный срок кредитования - 40 лет"

Exit Sub

End If

If DifCr = False And AnCr = False Then

MsgBox "Укажите тип платежа"

Exit Sub

End If

' приcваивание процентной ставки в зависимости от срока кредитования

If Sroc >= 1 And Sroc <= 3 Then Ps = 0.16

If Sroc > 3 And Sroc <= 5 Then Ps = 0.12

If Sroc > 5 Then Ps = 0.09

l = Sroc * 12 + 5

Cells.Clear ' очистка ячеек

Range("A1").Value = "Ф.И.О. клиента:" ' определение свойств ячеек; ввод значений

Range("A2").Value = "Тип операции "

Range("A3").Value = "Тип платежа:"

Range("A4").Value = "Сумма кредита, руб:"

Range("A5").Value = "Срок кредитования, лет:"

Range("A6").Value = "Процентная ставка:"

Range("A7").Value = "Первоначальный взнос, %:"

Range("A8").Value = "Первоначальный взнос, руб:"

Range("A10:D10").Font.Bold = True

Range("A10").Value = "№ месяца"

Range("B10").Value = "Оплата по основному долгу, руб"

Range("C10").Value = "Оплата по процентам, руб"

Range("D10").Value = "Ежемесячные платежи, руб"

Range("E9").Value = "Итого:"

Range("E9").Font.Bold = True

Range("F9").Value = "Плата по основному долгу"

Range("G9").Value = "Плата по процентам"

Range("H9").Value = "Общая плата:"

Range("B1").NumberFormat = "general" ' определение формата ячеек

Range("B2").NumberFormat = "Кредит"

Range("B3").NumberFormat = "general" 'общий

Range("B4").NumberFormat = "0.00$" 'денежный

Range("B5").NumberFormat = "0год(а)"

Range("B6").NumberFormat = "0.00%"

Range("B7").NumberFormat = "0.00%"

Range("B8").NumberFormat = "0.00$"

Range("B10:D500").NumberFormat = "0.00$"

Range("E10:H10").NumberFormat = "0.00$"

Columns("A:D").ColumnWidth = 30 ' определение ширины колонок

Columns("E").ColumnWidth = 10

Columns("F:H").ColumnWidth = 25

Range("B1").Value = FIO ' ввод исходных значений в рабочий лист

Range("B2").Value = "Кредит"

Range("B4").Value = Sum

Range("B5").Value = Sroc

Range("B6").Value = Ps

Range("B7").Value = 0.3

Range("B8").Value = Sum * 0.3

Sum = Sum - Sum * 0.3

' обнуление переменных

ostatok = 0

osn = 0

proc = 0

plat = 0

Sum1 = 0

Sum2 = 0

Sum3 = 0

' рассчет кредита дифференцированным методом

If DifCr.Value = True Then

Range("B3").Value = "Дифференцированный"

osn = Sum / (12 * Sroc)

' расчет выплаты по основному долгу, выплаты по процентам, и всего долга

For i = 1 To Sroc * 12

ostatok = Sum - (i - 1) * osn

proc = ostatok * Ps / 12

plat = proc + osn

Sum1 = Sum1 + osn

Sum2 = Sum2 + proc

Sum3 = Sum3 + plat

Cells(i + 10, 1).Value = i

Cells(i + 10, 2).Value = osn

Cells(i + 10, 3).Value = proc

Cells(i + 10, 4).Value = plat

Next i

' вывод итогов

Range("F10").Value = Sum1

Range("G10").Value = Sum2

Range("H10").Value = Sum3

Call GraphCr

End If

' рассчет кредитов аннуительным методом

If AnCr.Value = True Then

Range("B3").Value = "Аннуитетный"

plat = (Sum * (Ps / 12)) / (1 - (1 + Ps / 12) ^ (-Sroc * 12))

' расчет выплаты по основному долгу, выплаты по процентам, и всего долга

For i = 1 To Sroc * 12

ostatok = Sum - Sum1

proc = ostatok * Ps / 12

osn = plat - proc

Sum1 = Sum1 + osn

Sum2 = Sum2 + proc

Sum3 = Sum3 + plat

Cells(i + 10, 1).Value = i

Cells(i + 10, 2).Value = osn

Cells(i + 10, 3).Value = proc

Cells(i + 10, 4).Value = plat

Next i

' вывод итогов

Range("F10").Value = Sum1

Range("G10").Value = Sum2

Range("H10").Value = Sum3

Call GraphCr

End If

End Sub

' процедура сохранения файла

Private Sub Sohran_Click()

SaveName = Application.GetSaveAsFilename(InitialFileName:=FIO)

If SaveName = False Then Exit Sub ' при нажатии кнопки "отмена" выходит из процедуры

ActiveWorkbook.SaveAs Filename:=SaveName & "xlsm"

End Sub

Private Sub CommandButton4_Click()

UserForm3.Hide

End Sub

Sub GraphCr()

' Sheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlLineMarkers

ActiveChart.SetSourceData Source:=Range(Worksheets(1).Cells(11, 1), Worksheets(1).Cells(Sroc * 12 + 11, 4))

ActiveChart.SeriesCollection(1).Name = "='Лист1'!$B$10"

ActiveChart.SeriesCollection(2).Name = "='Лист1'!$C$10"

ActiveChart.SeriesCollection(3).Name = "='Лист1'!$D$10"

ActiveChart.Location Where:=xlLocationAsNewSheet

End Sub

UserForm4

' процедура рассчета депозитов

Private Sub RaschetDEP_Click()

Workbooks.Add

If SumDep.Value = "" Then ' показать ошибку, если не введена сумма депозита

MsgBox "Введите сумму деопзита", , Zagl

Exit Sub

End If

If SrokDep.Value = "" Then ' показать ошибку, если не введен срок депозита

MsgBox "Введите срок депозита", , Zagl

Exit Sub

End If

If IsNumeric(SumDep.Value) = False Then ' показать ошибку, если неправильно введена сумма депозита

MsgBox "Неправильно введена сумма депозита", , Zagl

Exit Sub

End If

If IsNumeric(SrokDep.Value) = False Then ' показать ошибку, если неправильно введен срок депозита

MsgBox "Неправильно введен срок депозита", , Zagl

Exit Sub

End If

' присвоение переменным значений, вводимых пользователем

Sum = CDbl(SumDep.Value)

Sroc = CInt(SrokDep.Value)

' проверка на правильность ввода срока депозита

If Sroc < 1 Then

MsgBox "Минимальный срок депозита - 1 месяц"

Exit Sub

End If

If Sroc > 120 Then

MsgBox "Максимальный срок депозита - 10 лет"

Exit Sub

End If

If OptionButton1.Value = False And OptionButton2.Value = False Then

MsgBox "Укажите метод расчета"

Exit Sub

End If

' приcваивание процентной ставки в зависимости от срока депозита

If Sroc >= 1 And Sroc <= 24 Then Ps = 0.5

If Sroc >= 24 And Sroc <= 60 Then Ps = 0.7

If Sroc >= 60 And Sroc <= 120 Then Ps = 0.8

' проверка вводимой суммы депозита

If Sum < 350000 Then

MsgBox "Минимальная сумма депозита - 350000 рублей"

Exit Sub

End If

Cells.Clear ' очистка ячеек

Range("A1").Value = "Ф.И.О. клиента:"

Range("A2").Value = "Тип операции: "

Range("A3").Value = "Метод расчета:"

Range("A4").Value = "Сумма депозита, руб:"

Range("A5").Value = "Срок депозита, мес:"

Range("A6").Value = "Процентная ставка:"

Range("A7").Value = "Минимальная сумма:, руб:"

Range("A10").Value = "№ месяца"

Range("B10").Value = "Основной депозит, руб"

Range("C10").Value = "Проценты, руб"

Range("D10").Value = "Сумма, руб"

Range("B1").NumberFormat = "general" ' определение формата ячеек

Range("B2").NumberFormat = "general"

Range("B4").NumberFormat = "0.00$"

Range("B5").NumberFormat = "0мес"

Range("B6").NumberFormat = "0.00%"

Range("B7").NumberFormat = "0.00$"

Range("A10:D10").Font.Bold = True

Range("B9:D140").NumberFormat = "0.00$"

Range("E11:H11").NumberFormat = "0.00$"

Columns("A:D").ColumnWidth = 25 ' определение ширины колонок

Columns("E").ColumnWidth = 10

Columns("F:H").ColumnWidth = 15

Range("B1").Value = FIO ' ввод исходных значений в рабочий лист

Range("B2").Value = "Депозит"

Range("B3").Value = "Простой процент"

Range("B4").Value = Sum

Range("B5").Value = Sroc

Range("B6").Value = Ps

Range("B7").Value = 350000

' обнуление переменных

osn = 0

proc = 0

plat = 0

Sum1 = 0

' рассчет депозита

' расчет простого процента

If OptionButton1 = True Then

Range("B3").Value = "Простой процент"

proc = Sum * Ps / 12

osn = Sum

For i = 1 To Sroc

Sum1 = proc * i

plat = osn + Sum1

Cells(i + 10, 1).Value = i

Cells(i + 10, 2).Value = osn

Cells(i + 10, 3).Value = Sum1

Cells(i + 10, 4).Value = plat

Next i

' вывод итогов

Range("e7:h9").NumberFormat = "#,##0.00$"

Range("e7").Value = "Итого:"

Range("e7").Font.Bold = True

Range("f8").Value = "Депозит"

Range("g8").Value = "Проценты"

Range("h8").Value = "Всего"

Range("f9").Value = osn

Range("g9").Value = Sum1

Range("h9").Value = Sum1 + osn

Call GraphDep

End If

' расчет сложного процента

If OptionButton2 = True Then

Range("B3").Value = "Сложный процент"

proc = Sum * Ps / 12

osn = Sum

For i = 1 To Sroc

Sum1 = proc * i

osn = Sum * i

plat = osn + Sum1

Cells(i + 10, 1).Value = i

Cells(i + 10, 2).Value = osn

Cells(i + 10, 3).Value = Sum1

Cells(i + 10, 4).Value = plat

Next i

' вывод итогов

Range("e7:h9").NumberFormat = "#,##0.00$"

Range("e7").Value = "Итого:"

Range("e7").Font.Bold = True

Range("f8").Value = "Депозит"

Range("g8").Value = "Проценты"

Range("h8").Value = "Всего"

Range("f9").Value = osn

Range("g9").Value = Sum1

Range("h9").Value = Sum1 + osn

Call GraphDep

End If

End Sub

Private Sub Sohran_Click()

SaveName = Application.GetSaveAsFilename(InitialFileName:=FIO)

If SaveName = False Then Exit Sub ' при нажатии кнопки "отмена" выходит из процедуры

ActiveWorkbook.SaveAs Filename:=SaveName & "xlsm"

End Sub

Sub GraphDep()

Sheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlLineMarkers

ActiveChart.SetSourceData Source:=Range(Worksheets(1).Cells(11, 1), Worksheets(1).Cells(Sroc + 11, 4))

ActiveChart.SeriesCollection(1).Name = "='Лист1'!$B$10"

ActiveChart.SeriesCollection(2).Name = "='Лист1'!$C$10"

ActiveChart.SeriesCollection(3).Name = "='Лист1'!$D$10"

ActiveChart.Location Where:=xlLocationAsNewSheet

End Sub

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