1. Гражданский Кодекс РФ № 14-ФЗ от 26.01.1996 г.

2. Федеральный Закон № 293-ФЗ «Об актуарной деятельности в Российской Федерации»от 02.11.2013г.

3. Постановление Правительства РФ от 7 мая 2003 г. № 263 «Об утверждении правил обязательного страхования гражданской ответственности владельцев транспортных средств»

4. Вендров А. М. Проектирование программного обеспечения экономических информационных систем. - М.: «Финансы и статистика», 2000г.

5. Вендров А.М. Практикум по проектированию программного обеспечения экономических информационных систем: учебное пособие. – М.: «Финансы и статистика», 2002г.

6. Вендров А.М. Проектирование программного обеспечения экономических информационных систем / А.М Вендров. – М.: «Финансы и статистика», 2006г. – 544стр.

7. Гвоздева Т.В., Баллод Б.А Проектирование информационных систем: учебное пособие – М., «Феникс», 2009г. – 512 стр.

8. Гвозденко А.А. Страхование: учебник – М.: ТК Велби, Издательство «Проспект», 2006г.– 464стр.

9. Грекул, В.И. Проектирование информационных систем: учебное пособие / В.И. Грекул, Г.Н. Денищенко, Н.Л. Коровкина. – М.: «Интернет-Университет Информационных технологий», 2005г. – 304 стр.

10. Маклаков С. В. BPwin и Erwin: Case-средства для разработки информационных систем – М.:«Диалог-МИФИ», 2001г. – 224 стр.

11. Маклаков С.В. Создание информационных систем – М.: «Диалог-МИФИ», 2003.

12. Назарова С.В. Программирование в пакетах MSOffice:учебное пособие – М.: «Финансы и статистика», 2007г. – 656 стр.

13. Смирнова Г.Н. Проектирование экономических информационных систем / Г.Н. Смирнова, А.А. Сорокин, Ю.Ф. Тельнов. М.: Финансы и статистика, 2002. – 158стр.

14. Федорова Т.А. «Основы страховой деятельности учебник»– М.: Издательство «БЕК», 2002г.

15. Шахова В. В. Введение в страхование: учебник для ВУЗов – М.: «Финансы и статистика»,2005г.– 304 стр.

16. Олбрайт К. Моделирование с помощью MicrosoftOfficeExcel и VBA: разработка систем поддержки принятия решений: учебник –М.: Издательский дом «Вильямс», 2005г. – 669 стр.

17. Мак Т. Математика рискового страхования, – М.: ЗАО «Олимп-Бизнес», 2005г. – 432 стр.

18. Уокенбах Дж. Профессиональное программирование на VBA в Excel2003: учебник –М.: Издательский дом «Вильямс», 2005г. –800 стр.

19. О компании «Росгосстрах» [электронный ресурс], режим доступа: http://www.rgs.ru/about/information/index.wbp, свободный, 24.04.2014г.

20. VBAв приложении к Excel, Wordи PowerPoint [электронный ресурс], режим доступа: http://inf.1september.ru/article.php?ID=200601015, свободный, 04.04.2014г.

21. Приложение А

22. Таблица 1 – анализ динамики актива баланса

    Показатели	2010г.	2011 г.	2012г.	Отклонения, тыс.р.		Темпы изменения, %
    				2011г./ 2010г.	2012г./ 2011г.	2011г./ 2010г.	2012г./ 2011г.
    I. Активы
    Инвестиции	6396007	8784418	8596719	2388411	-187699	137,34	97,86
    в том числе:здания	-	-	-	-	-	-	-
    финансовые вложения в дочерние, зависимые общества и другие организации	4176010	7155707	6831845	2979697	-323862	171,35	95,47
    в том числе:вклады в уставные (складочные) капиталы дочерних и зависимых обществ	35	35	35	0	0	100	100
    акции других организаций	1154913	1011638	442293	-143275	-569345	87,59	43,72
    долговые ценные бумаги других организаций и предоставленные им займы	2823523	5946495	6192508	3122972	246013	210,61	104,14
    вклады в уставные капиталы других организаций	197539	197539	197009	0	-530	100,00	99,73
    иные инвестиции	2219997	1628711	1734874	-591286	106163	73,37	106,52

24. Продолжение таблицы 1

    втч:банковские вклады (депозиты)	2118753	1514298	1651033	-604455	136735	71,47	109,03
    прочие инвестиции	101244	114413	113841	13169	-572	113,01	99,50
    Доля перестраховщиков в страховых резервах	233453	55823	39084	-177630	-16739	23,91	70,01
    в резервах по страхованию жизни	468	830	935	362	105	177,35	112,65
    в резерве незаработанной премии, втч:	131303	15286	5722	-116017	-9564	11,64	37,43
    в резервах убытков	101682	39707	32427	-61975	-7280	39,05	81,67
    Дебиторская задолженность по операциям страхования, сострахования, втч	837181	919004	908828	81823	-10176	109,77	98,89
    страхователи	837075	910618	901875	73543	-8743	108,79	99,04
    страховые агенты	106	8386	6953	8280	-1433	7911,32	82,91
    Дебиторская задолженность по операциям перестрахования	967	-	1139	-	-	-	-
    Прочая дебиторская задолженность, платежи по которой ожидаются более чем через 12 месяцев после отчетной даты	186961	-	193750	-	-	-	-

25. Продолжение таблицы 1

    Прочая дебиторская задолженность, платежи по которой ожидаются в течение 12 месяцев после отчетной даты	342391	775360	611333	432969	1386693	226,45	78,85
    Основные средства	204106	178616	139920	-25490	318536	87,51	78,34
    Незавершенное строительство	26434	27282	23911	848	51193	103,21	87,64
    Отложенные налоговые активы	15439	47786	58556	24383	98378	257,93	147,04
    Запасы	80266	76492	54777	-3774	131269	95,30	71,61
    в том числе: материалы и др.аналогичные ценности	73239	50078	32656	-23161	82734	68,38	65,21
    расходы будущих периодов	5719	7468	4401	1749	11869	130,58	58,93
    прочие запасы и затраты	1308	18946	17720	17638	36666	1448,47	93,53
    Денежные средства	2292911	749725	985374	-1543186	1735099	32,70	131,43
    Прочие активы	609	1440	1386	831	2826	236,45	96,25
    Итого по разделу 1	10616731	11615946	11614782	991251	23222764	109,34	100,06
    БАЛАНС	10616731	11615946	11615946	11615946	23222764	109,34	100,06

26. Таблица 2 – анализ динамики пассива баланса

    Показатели	2010г.	2011г.	2012г.	Отклонения, тыс.р.		Темпы изменения, %
    				2011г./ 2010г.	2012г./ 2011г.	2011г./ 2010г.	2012г./ 2011г.
    II. Капитал и резервы
    Уставный капитал	1800000	1800000	1800000	0	0	100	100
    Добавочный капитал	34250	34250	34250	0	0	100	100
    Резервный капитал	3518	3518	3518	0	0	100	100
    в том числе: резервы, образованные в соответствии с учредительными документами	3518	3518	3518	0	0	100	100
    Нераспределенная прибыль (непокрытый убыток)	602027	608674	615929	6647	7255	101,1041	101,1919
    Итого по разделу II	2439795	2446442	2452478	6647	6036	100,2724	100,2467
    III. Страховые резервы
    Резервы по страхованию жизни	179240	186070	154930	6830	-31140	103,8105	83,26436
    Резерв незаработанной премии	3538495	3798982	4318788	260487	519806	107,3615	113,6828
    резерв убытков	1163825	1354906	2003357	191081	648451	116,4184	147,8595
    иные страховые резервы	912297	914562	873251	2265	-41311	100,2483	95,48297
    Итого по разделу III	5793857	6254520	7350326	460663	1095806	107,9509	117,5202

28. Продолжение таблицы 2

    IV. Обязательства
    Отложенные налоговые обязательства	3290	7375	2586	4085	-4789	224,1641	35,06441
    Краткосрочные кредиты и займы	-	537525	377516	-	-160009	-	70,23
    Кредиторская задолженность по операциям страхования, сострахования	111	80472	94228	80361	13756	72497,3	117,09
    Задолженность перед страховыми агентами	111	80472	94180	80361	13708	72497,3	117,03
    Кредиторская задолженность по операциям перестрахования	127612	5436	4597	-122176	-839	4,26	84,57
    Прочая кредиторская задолженность	2232290	2264152	1314134	31862	-950018	101,43	58,04
    в том числе: задолженность перед персоналом организации	72286	34565	31229	-37721	-3336	47,82	90,35
    задолженность перед государственными внебюджетными фондами	19587	14762	18308	-4825	3546	75,37	124,02
    задолженность по налогам и сборам	19252	100007	39394	80755	-60613	519,46	39,39
    прочие кредиторы	2121165	2114818	1225203	-6347	-889615	99,70	57,93

29. Продолжение таблицы 2

    Доходы будущих периодов	2095	1906	-	-189	-	90,98	-
    Фонд (резерв) предупредительных мероприятий	17485	18118	18443	633	325	103,62	101,79
    Итого по разделу IV	2383079	2914984	1811978	531905	-1103006	122,32	62,16
    БАЛАНС	10616731	11615946	11614782	999215	-1164	109,41	99,99

30. Приложение Б

31. Приложение В

32. Листинг главного модуля

33. Option Explicit

34. Public Sub main1()

35. Dim i, n As Integer 'для работы в журнале

36. 'расчет выплаты ОСАГО

37. UserForm1.Caption = rachOSAGO 'форма

38. UserForm1.Label1.Caption = rgs 'плательщик

39. UserForm1.Label2.Caption = vyplatt 'выплата производится в

40. UserForm1.Label3.Caption = nomerpp '№

41. UserForm1.Label4.Caption = osago 'о возврате части страх.премии

42. UserForm1.Label5.Caption = adres 'адрес

43. UserForm1.Label6.Caption = passport 'паспорт

44. UserForm1.Label7.Caption = strahovatel 'страхователь

45. UserForm1.Label8.Caption = polis 'полис №

46. UserForm1.Label9.Caption = sstrah 'сумма по виду страхования

47. UserForm1.Label10.Caption = srok 'срок страхования в днях

48. UserForm1.Label11.Caption = koldni 'кол-во дней за истекший период

49. UserForm1.Label12.Caption = otchetag 'расчет составил

50. UserForm1.CommandButton1.Caption = svypl 'рассчитать сумму выплаты

51. UserForm1.CommandButton2.Caption = okey 'рассчитать и заполнить

52. UserForm1.CommandButton3.Caption = ex 'не заполнять и не сохранять

53. UserForm1.Show

54. End Sub

55. Листинг описания глобальных переменных

56. Option Explicit

57. Public Const rachOSAGO As String = "Расчет ОСАГО"

58. Public Const rgs As String = "Плательщик: Филиал ООО 'Росгосстрах' в Республике Марий Эл"

59. Public Const vyplatt As String = "Выплата производится в"

60. Public Const nomerpp As String = "№"

61. Public Const osago As String = "О ВОЗВРАТЕ ЧАСТИ СТРАХОВОЙ ПРЕМИИ, ПОДЛЕЖАЩЕЙ ПЕРЕРАСЧЕТУ по ОСАГО"

62. Public Const adres As String = "Адрес"

63. Public Const pasport As String = "Паспорт"

64. Public Const strahovatel As String = "Страхователь"

65. Public Const polis As String = "полис №"

66. Public Const sstrah As String = "Cтраховая премия, уплаченная по договору страхования"

67. Public Const srok As String = "Срок страхования в днях"

68. Public Const koldni As String = "Количество дней за истекший период страхования"

69. Public Const otchetag As String = "Расчет составил"

70. Public Const svypl As String = "Рассчитать сумму выплаты"

71. Public Const okey As String = "Сохранить"

72. Public Const ex As String = "Отмена"

73. Листинг формы

74. Private Sub CommandButton1_Click() 'кнопка "Рассчитать сумму выплаты"

75. Dim summa As Currency 'сумма, подл-ая возврату страхователю

76. Dim srokN As Integer 'срок страхования в днях

77. Dim n As String 'кол-во дней за истекший п/д страхования

78. Dim sumvypl As Currency 'вывод суммы выплаты по ОСАГО

79. summa = CDbl(TextBox12.Text)

80. 'Range("B35") = summa

81. srokN = CDbl(TextBox13.Text)

82. 'Range("B36") = srokN

83. n = CDbl(TextBox14.Text)

84. 'Range("B37") = n

85. TextBox15.Text = (summa - summa * 0.23) * (srokN - n) / srokN

86. End Sub

88. Private Sub CommandButton2_Click() 'кнопка "Сохранить"

89. Dim nomer As String 'номер распоряжения

90. Dim data1 As Date 'дата распоряжения

91. Dim fiolitsa As String 'ФИО

92. Dim adreslitsa As String 'адрес лица (страх-ль, доверенное лицо)

93. Dim s_pasp, n_pasp As Integer 'серия и номер паспорта

94. Dim kemvydan As String 'кем выдан паспорт

95. Dim fiostrah As String 'ФИО страхователя

96. Dim n_polis As String 'номер выданного полиса

97. Dim data2 As Date 'дата выдачи страхового полиса

98. Dim otdel As String 'в каком отделе выдан страховой полис

99. Dim i, n As Integer

101. 'РАБОТА В ЛИСТЕ "Расчет ОСАГО"

102. Sheets("Расчет_ОСАГО").Activate 'заполнение бланка-листа ОСАГО

103. With ActiveSheet

104. 'заполнение бланка

105. Range("A1") = "Плательщик: Филиал ООО 'Росгосстрах' в Республике Марий Эл"

106. Range("M2") = "Выплата производится в"

107. Range("D4") = "№"

108. Range("A5") = "О ВОЗВРАТЕ ЧАСТИ СТРАХОВОЙ ПРЕМИИ, ПОДЛЕЖАЩЕЙ перерасчету"

109. Range("S5") = "по"

110. Range("T5") = "ОСАГО"

111. Range("A9") = "Адрес:"

112. Range("A10") = "Паспорт"

113. Range("M11") = "Сумма по виду страхования, руб."

114. Range("W11") = "Следует к выплате, руб."

115. Range("A12") = "Осаго"

116. Range("A13") = "(расторжение)"

117. Range("E13") = "от"

118. Range("E15") = "Х"

119. Range("M15") = "Х"

120. Range("S15") = "Х"

121. Range("A17") = "Руководитель"

122. Range("A19") = "Главный бухгалтер"

123. Range("E18") = "(подпись)"

124. Range("E20") = "(подпись)"

125. Range("A24") = "Страхователь"

126. Range("A25") = "полис №"

127. Range("A29") = "Пвозвр.- сумма, подлежащая возврату страхователю;"

128. Range("A30") = "По- страховая премия, уплаченная по договору страхования;"

129. Range("A31") = "23%- часть брутто-премии, включающая расходы на ведение дела страховщика, резервы гарантии и текущих компенсационных выплат;"

130. Range("A32") = "n- количество дней за истекший срок страхования;"

131. Range("A33") = "N- срок страхования в днях;"

132. Range("A36") = "N"

133. Range("A37") = "n"

134. Range("C36") = "дн."

135. Range("A39") = "Пвозвр.="

136. Range("A43") = "Расчет составил:"

138. 'заполнение знаков в расчетах

139. Range("E39") = "-"

140. Range("N39") = "-"

141. Range("C39") = "("

142. Range("F39") = "("

143. Range("C39") = "("

144. Range("F39") = "("

145. Range("L39") = "("

146. Range("J39") = "))"

147. Range("P39") = ")"

148. Range("Q39") = "/"

149. Range("H39") = "x"

150. Range("K39") = "x"

151. Range("U39") = "x"

152. Range("S39") = "="

153. Range("W39") = "="

155. 'расчет выплаты по формуле

156. Cells(39, 4) = CDbl(TextBox12.Text) 'сумма по виду страхования

157. Cells(39, 7) = Cells(39, 4).Value 'сумма по виду страхования

158. Cells(39, 9) = 0.23 'часть брутто-премии

159. Cells(39, 13) = CDbl(TextBox13.Text) 'срок страхования в днях

160. Cells(39, 18) = Cells(39, 13).Value 'срок страхования в днях

161. Cells(39, 15) = CDbl(TextBox14.Text) 'кол-во дней за истек.п/д страх-я

162. Cells(39, 20) = Cells(39, 4).Value - Cells(39, 7).Value * Cells(39, 9).Value

163. Cells(39, 22) = (Cells(39, 13).Value - Cells(39, 15).Value) / Cells(39, 18).Value

164. Cells(39, 24) = CCur(TextBox15.Text)

166. Range("U2") = Me.ComboBox1.Value

167. Range("U4") = Me.ComboBox2.Value

168. Range("F7") = Me.ComboBox3.Value

169. Range("R44") = Me.ComboBox4.Value

171. 'ЗАПОЛНЕНИЕ ПЕРВОЙ ЧАСТИ БЛАНКА

172. nomer = CStr(TextBox1.Text)

173. Range("F4") = nomer 'запись номера распоряжения

174. data1 = CDate(TextBox2.Text)

175. Range("I4") = data1 'запись даты распоряжения

176. fiolitsa = CStr(TextBox3.Text)

177. Range("J8") = fiolitsa 'запись ФИО лица

178. adreslitsa = CStr(TextBox4.Text)

179. Range("D9") = adreslitsa 'запись адрес лица

180. s_pasp = CStr(TextBox5.Text)

181. Range("D10") = s_pasp 'запись в ячейку - серия паспорта

182. Range("I10") = CStr(TextBox6.Text) 'запись в ячейку - номер паспорта

183. Range("O10") = CStr(TextBox7.Text) 'запись - кем выдан паспорт

185. 'ЗАПОЛНЕНИЕ ВТОРОЙ ЧАСТИ БЛАНКА

186. Range("D24") = CStr(TextBox8.Text) 'ФИО страхователя

187. Range("D25") = CStr(TextBox9.Text) 'номер страхового поля

188. data2 = CDate(TextBox10.Text)

189. Range("J25") = data2 'запись - дата выдачи полиса

190. otdel = CStr(TextBox11.Text)

191. Range("R25") = otdel 'запись - отдел страхового полиса

193. Range("B35") = CDbl(TextBox12.Text)

194. Range("B36") = CDbl(TextBox13.Text)

195. Range("B37") = CDbl(TextBox14.Text)

197. 'заполнение таблицы

198. Cells(12, 13) = Cells(35, 2).Value 'сумма по виду страхования

199. Range("W12") = CCur(TextBox15.Text) 'сумма к выплате

200. Cells(15, 23) = CCur(TextBox15.Text) 'итоговая сумма к выплате

201. Cells(12, 8) = Cells(25, 4).Value 'номер страхового полиса

202. Cells(13, 8) = Cells(25, 10).Value 'дата выдачи страхового полиса

203. Cells(14, 5) = CCur(TextBox15.Text) 'отдел, в кот. выдан полис

205. End With

207. Sheets("Журнал регистрации").Activate 'открытие журнала распоряжений

208. 'ввод в журнал распоряжений основных данных

209. For i = 4 To 30000

210. If Sheets("Журнал регистрации").Cells(i, 1) = CStr(TextBox1.Text) _

211. And Sheets("Журнал регистрации").Cells(i, 6) = CStr(TextBox8.Text) Then

212. 'страховой отдел

213. Sheets("Журнал регистрации").Cells(i, 7) = CStr(TextBox11.Text)

214. 'номер полиса

215. Sheets("Журнал регистрации").Cells(i, 9) = CStr(TextBox9.Text)

216. 'сумма к возврату

217. Sheets("Журнал регистрации").Cells(i, 10) = CCur(TextBox15.Text)

218. End If

219. Next

221. Unload UserForm1 'выгружает форму из памяти и закрывает ее

223. End Sub

224. Private Sub CommandButton3_Click() 'кнопка "Отмена"

225. Application.Caption = Empty

226. End

227. End Sub