Реферат: Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic
End Sub
Расчёт коэффициента утраты платёжеспособности:
Private Sub Kutrplatezhsti_Click()
a = InputBox("Введите коэффициент текущей ликвидности на начало года", "Ктлнг")
If a = "" Then GoTo M:
c = (Kteklik + 3 / 12 * (Kteklik - a)) / 2
Label7.Caption = c
If c < 1 Then MsgBox ("Предприятие в ближайшее время может утратить платежеспособность")
If c > 1 Then MsgBox ("У предприятия нет тенденции к утрате платежеспособности")
If c < 1 Then Label7.ForeColor = &HFF&
If c > 1 Then Label7.ForeColor = &HC000&
M:
Text1.SetFocus
End Sub
Расчёт коэффициента восстановления платёжеспособности:
Private Sub Kvosstplatezhsti_Click()
a = InputBox("Введите коэффициент текущей ликвидности на начало года", "Ктлнг")
If a = "" Then GoTo M:
c = (Kteklik + 6 / 12 * (Kteklik - a)) / 2
Label6.Caption = c
If c < 1 Then MsgBox ("У предприятия в ближайшее время нет реальной возможности восстановить платежеспособность")
If c < 1 Then Label6.ForeColor = &HFF&
If c > 1 Then MsgBox ("Предприятие в ближайшее время может восстановить платежеспособность")
If c > 1 Then Label6.ForeColor = &HC000&
M:
Text1.SetFocus
End Sub
Расчёт оборачиваемости банковских активов:
Private Sub Obankaktiv_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборачиваемость банковских активов"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость банковских активов")
Text2.Text = InputBox("Средняя величина свободных денежных средств и ценных бумаг", "Оборачиваемость банковских активов")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
a = Text1.Text
b = Text2.Text
Oba = (a / b)
Label21.Caption = Oba
Text3.Text = Oba
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт оборачиваемости дебиторской задолженности:
Private Sub Odebitzad_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборачиваемость дебиторской задолженности"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость дебиторской задолженности")
Text2.Text = InputBox("Средняя величина дебиторской задолженности", "Оборачиваемость дебиторской задолженности")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
a = Text1.Text
b = Text2.Text
Odz = (a / b)
Label20.Caption = Odz
Text3.Text = Odz
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт оборачиваемости собственного капитала:
Private Sub Oksobstvkapit_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборот к собственному капиталу"
Text1.Text = InputBox("Продукция (оборот)", "Оборот к собственному капиталу")
Text2.Text = InputBox("Средняя величина собственного капитала", "Оборот к собственному капиталу")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
a = Text1.Text
b = Text2.Text
Oksk = (a / b)
Label22.Caption = Oksk
Text3.Text = Oksk
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт оборачиваемости всех оборотных активов:
Private Sub Oobak_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборачиваемость всех оборотных активов"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость всех оборотных активов")
Text2.Text = InputBox("Средняя стоимость оборотных активов", "Оборачиваемость всех оборотных активов")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
a = Text1.Text
b = Text2.Text
Oobakt = (a / b)
Label18.Caption = Oobakt
Text3.Text = Oobakt
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт отдачи основных средств и нематериальных активов:
Private Sub Oosnsr_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Отдача ос и нематериальных активов"
Text1.Text = InputBox("Продукция (оборот)", "Отдача ос и нематериальных активов")
Text2.Text = InputBox("Средняя стоимость ос и нематериальных активов", "Отдача ос и нематериальных активов")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
a = Text1.Text
b = Text2.Text
Oos = (a / b)
Label11.Caption = Oos
Text3.Text = Oos
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт оборачиваемости запасов:
Private Sub Ozapasov_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборачиваемость запасов"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость запасов")
Text2.Text = InputBox("Средняя стоимость запасов", "Оборачиваемость запасов")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
a = Text1.Text
b = Text2.Text
Ozap = (a / b)
Label19.Caption = Ozap
Text3.Text = Ozap
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт показателя рентабельности производства:
Private Sub Rproizv_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Рентабельность производства"
Text1.Text = InputBox("Прибыль", "Рентабельность производства")
Text2.Text = InputBox("Себестоимость продукции", "Рентабельность производства")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
a = Text1.Text
b = Text2.Text
Rproiz = (a / b)
Label9.Caption = Rproiz
Text3.Text = Rproiz
If Rproiz > 0.12 Then Label9.ForeColor = &HC000&
If Rproiz < 0.12 Then Label9.ForeColor = &HFF&
If Rproiz < 0.12 Then MsgBox ("Рентабельность производства меньше нормы(0,12)")
M:
Text1.SetFocus
End Sub
Расчёт показателя рентабельности продаж:
Private Sub Rprodaj_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Рентабельность продаж"
Text1.Text = InputBox("Чистая прибыль", "Рентабельность продаж")
Text2.Text = InputBox("Валовый доход (выручка)", "Рентабельность продаж")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M
a = Text1.Text
b = Text2.Text
Rpr = (a / b)
Label8.Caption = Rpr
Text3.Text = Rpr
If Rpr > 0.6 Then Label8.ForeColor = &HC000&
If Rpr < 0.6 Then Label8.ForeColor = &HFF&
If Rpr < 0.6 Then MsgBox ("Рентабельность продаж меньше нормы(0,6)!!!")
M:
Text1.SetFocus
End Sub
Заключение
Основной задачей бизнес-плана является получение целостной, системной оценки перспектив инвестиционного проекта, что невозможно без оценки финансового состояния предприятия, его рентабельности и платежеспособности. С этой точки зрения бизнес-план выступает как форма представления результатов предварительного технико-экономического обоснования проектов. От того, насколько достоверно и обоснованно изложены и оценены потребности и результаты инвестиционного проекта, то есть от того, насколько грамотно составлен бизнес-план, во многом зависит не только возможность привлечения дополнительных источников финансирования, но и успех и эффективность производственно-хозяйственной деятельности предприятия в целом.
Данная программа позволяет рассчитывать результаты финансовой деятельности и оценить финансовое положение предприятия, например, если коэффициент текущей ликвидности < 2 (норма), то программа сообщает о том, что предприятие не платежеспособно и выделяет полученное значение красным цветом, в противном случае – зелёным.
Так же при вычислении коэффициентов утраты (восстановления) платежеспособности, при значении <1 программа сообщит, что предприятие в ближайшее время может утратить платежеспособность (предприятие в ближайшее время не может восстановить платежеспособность).
Таким образом, человек, использующий эту программу, освобождается от сравнения полученных результатов с нормативными значениями, программа сделает это сама и оповестит об этом пользователя, а для работы с программой необходимо иметь только данные отчетного периода, которые используются в расчетах показателей финансового состояния предприятия.
Так как программа была написана на Visual Basic, в дальнейшем возможно осуществить её привязку к любому приложению пакета Microsoft Office. Например, при существовании необходимости вести учёт изменения показателей можно привязать данную программу к Microsoft Access, а для графического представления необходимых значений – к Microsoft Excel.
Полученный продукт можно использовать при составлении бизнес-плана на любых предприятиях, т.к. все показатели являются общими и характеризуют предприятие в соответствии с общими правилами и нормами.
Список литературы
1. Алексеев М. Ю. Экономика предприятия. МГУ, 1997, - 407с.
2. Алексеева М. М. Планирование деятельности фирмы. – М. 1998, - 245с.
3. Райзберг Б.А. Основы экономики – М. 2001, - 192с.
4. Балабанов И.Т. Анализ и планирование финансов хозяйствующего субъекта - М. 1998, - 109с.
5. Буров. В.П. Бизнес-план фирмы. – М. 2000, - 176с.
6. Горфинкель В.Я., Купряков Е.М., Красолова В.П. Экономика предприятия: Учебник для вузов; Под ред. проф. Горфинкеля В.Я., проф. Купрякова Е.М..- М. 1996, - 367с.
7. Донцова Л.В., Никифорова Н.А. Составление и анализ годовой бухгалтерской отчетности - М. 1997, - 328с.
8. Едронова В.Н., Мизиковский Е. А. Учет и анализ финансовых активов - М. 1995, - 251с.
9. Ефимова О.А. Как анализировать финансовое состояние предприятия - М. 1995, - 427с.
10. Ефимова О.А. Финансовый анализ - М.1997, - 370с.
11. Ефремов В. С. Внутрифирменное планирование – М. 1996, - 297с.
12. Зайцев Н. Л. Экономика промышленного предприятия – М. 1998, - 530с.
13. Липсиц И.В. Бизнес-план - основа успеха: Практ.пособие. -М. 1992, - 110с.
14. Любанова Т.П. Стратегическое планирование на предприятии – М. 2001, - 267с.
15. Мамедов О. Ю. и др. Современная экономика – Ростов-на-Дону. 1998, - 451с.
16. Новицкий Н.И. Основы менеджмента: организация и планирование производства. – М. 1998, - 202с
17. Прокопенко В. В. Бизнес-план для вашей фирмы – М. 1997, - 297с.
18. Румянцева З.П., Соломатин Н.А., Акбердин Р.З. Менеджмент организации: Учебное пособие – М. 1997, - 432с.
19. Бизнес-план. Практические рекомендации по составлению и оформлению. - М., 1994.- 80с.
20. Браун С. Visual Basic 6: Учебный курс. – СПб. 1999, - 573с.
