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

Введение……………………………………………………………………...2ГЛАВА 1. МЕТОДОЛОГИЯ РАЗРАБОТКИ БИЗНЕС-ПЛАНА………..3СУЩНОСТЬ БИЗНЕС-ПЛАНА……………………………………………..3структура бизнес-плана…………………………………………….9 - РЕЗЮМЕ……………………………………………………………………9 Описание состояния предприятия и предполагаемой продукции…………………………………..10 -

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

Курсовой проект

Компьютеры, программирование

Другие курсовые по предмету

Компьютеры, программирование

Сдать работу со 100% гаранией

 

Расчёт оборачиваемости дебиторской задолженности:

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

%200.12%20Then%20Label9.ForeColor%20=%20&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

%200.6%20Then%20Label8.ForeColor%20=%20&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.

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

Список литературы

  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. Липсиц И.В. Бизн

Похожие работы

<< < 4 5 6 7 8 9 >