Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
p>
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
0.12ThenLabel9.ForeColor=&HC000&">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
0.6ThenLabel8.ForeColor=&HC000&">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.
Полученный продукт можно использовать при составлении бизнес-плана на любых предприятиях, т.к. все показатели являются общими и характеризуют предприятие в соответствии с общими правилами и нормами.
Список литературы
- Алексеев М. Ю. Экономика предприятия. МГУ, 1997, - 407с.
- Алексеева М. М. Планирование деятельности фирмы. М. 1998, - 245с.
- Райзберг Б.А. Основы экономики М. 2001, - 192с.
- Балабанов И.Т. Анализ и планирование финансов хозяйствующего субъекта - М. 1998, - 109с.
- Буров. В.П. Бизнес-план фирмы. М. 2000, - 176с.
- Горфинкель В.Я., Купряков Е.М., Красолова В.П. Экономика предприятия: Учебник для вузов; Под ред. проф. Горфинкеля В.Я., проф. Купрякова Е.М..- М. 1996, - 367с.
- Донцова Л.В., Никифорова Н.А. Составление и анализ годовой бухгалтерской отчетности - М. 1997, - 328с.
- Едронова В.Н., Мизиковский Е. А. Учет и анализ финансовых активов - М. 1995, - 251с.
- Ефимова О.А. Как анализировать финансовое