If Oos = 0 Then GoTo N:
b = 365 / Int(Oos)
Label11.Caption = Int(b)
N:
If Oobakt = 0 Then GoTo V:
c = 365 / Int(Oobakt)
Label18.Caption = Int(c)
V:
If Ozap = 0 Then GoTo F:
d = 365 / Int(Ozap)
Label19.Caption = Int(d)
F:
If Odz = 0 Then GoTo H:
x = 365 / Int(Odz)
Label20.Caption = Int(x)
H:
If Oba = 0 Then GoTo P:
y = 365 / Int(Oba)
Label21.Caption = Int(y)
P:
If Oksk = 0 Then GoTo I:
z = 365 / Int(Oksk)
Label22.Caption = Int(z)
I:
End Sub
Завершение работы приложения:
Private Sub Exit_Click()
End
Расчёт общей капиталоотдачи (фондоотдачи):
Private Sub Fo_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
Fotd = (a / b)
Label10.Caption = Fotd
Text3.Text = Fotd
Command6.Enabled = True
M:
Text1.SetFocus
Расчёт коэффициента обеспеченности собственными средствами:
Private Sub Ko_Click()
Label1.Caption = "К обеспеченности собственными средствами"
Text1.Text = InputBox("Собственные оборотные средства", "Ко")
Text2.Text = InputBox("Текущие активы", "Ко")
Kobes = a / b
Label5.Caption = Kobes
Text3.Text = Kobes
If Kobes > 0.1 Then Label5.ForeColor = &HC000&
If Kobes < 0.1 Then MsgBox ("Неудовлетворительная структура баланса!!!")
If Kobes < 0.1 Then Label5.ForeColor = &HFF&
If Kobes < 0.1 Then Kvosstplatezhsti.Enabled = True
Расчёт коэффициента текущей ликвидности:
Private Sub Ktl_Click()
Label1.Caption = "К текущей ликвидности"
Text1.Text = InputBox("Текущие активы", "Ктл")
Text2.Text = InputBox("Краткосрочные пассивы (Наиболее срочные обязательства)", "Ктл")
Kteklik = a / b
Label4.Caption = Kteklik
Text3.Text = Kteklik
If Kteklik > 2 Then Label4.ForeColor = &HC000&
If Kteklik < 2 Then MsgBox ("Неудовлетворительная структура баланса!!! Предприятие не платёжеспособно!")
If Kteklik < 2 Then Label4.ForeColor = &HFF&
If Kteklik < 2 Then Kvosstplatezhsti.Enabled = True
Kutrplatezhsti.Enabled = True
Расчёт коэффициента утраты платёжеспособности:
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&
Расчёт коэффициента восстановления платёжеспособности:
Private Sub Kvosstplatezhsti_Click()
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&
Расчёт оборачиваемости банковских активов:
Private Sub Obankaktiv_Click()
Label1.Caption = "Оборачиваемость банковских активов"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость банковских активов")
Text2.Text = InputBox("Средняя величина свободных денежных средств и ценных бумаг", "Оборачиваемость банковских активов")
Oba = (a / b)
Label21.Caption = Oba
Text3.Text = Oba
Расчёт оборачиваемости дебиторской задолженности:
Private Sub Odebitzad_Click()
Label1.Caption = "Оборачиваемость дебиторской задолженности"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость дебиторской задолженности")
Text2.Text = InputBox("Средняя величина дебиторской задолженности", "Оборачиваемость дебиторской задолженности")
Odz = (a / b)
Label20.Caption = Odz
Text3.Text = Odz
Расчёт оборачиваемости собственного капитала:
Private Sub Oksobstvkapit_Click()
Label1.Caption = "Оборот к собственному капиталу"
Text1.Text = InputBox("Продукция (оборот)", "Оборот к собственному капиталу")
Text2.Text = InputBox("Средняя величина собственного капитала", "Оборот к собственному капиталу")
Oksk = (a / b)
Label22.Caption = Oksk
Text3.Text = Oksk
Расчёт оборачиваемости всех оборотных активов:
Private Sub Oobak_Click()
Label1.Caption = "Оборачиваемость всех оборотных активов"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость всех оборотных активов")
Text2.Text = InputBox("Средняя стоимость оборотных активов", "Оборачиваемость всех оборотных активов")
Oobakt = (a / b)
Label18.Caption = Oobakt
Text3.Text = Oobakt
Расчёт отдачи основных средств и нематериальных активов:
Private Sub Oosnsr_Click()
Label1.Caption = "Отдача ос и нематериальных активов"
Text1.Text = InputBox("Продукция (оборот)", "Отдача ос и нематериальных активов")
Text2.Text = InputBox("Средняя стоимость ос и нематериальных активов", "Отдача ос и нематериальных активов")
Oos = (a / b)
Label11.Caption = Oos
Text3.Text = Oos
Расчёт оборачиваемости запасов:
Private Sub Ozapasov_Click()
Label1.Caption = "Оборачиваемость запасов"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость запасов")
Text2.Text = InputBox("Средняя стоимость запасов", "Оборачиваемость запасов")
Ozap = (a / b)
Label19.Caption = Ozap
Text3.Text = Ozap
Расчёт показателя рентабельности производства:
Private Sub Rproizv_Click()
Label1.Caption = "Рентабельность производства"
Text1.Text = InputBox("Прибыль", "Рентабельность производства")
Text2.Text = InputBox("Себестоимость продукции", "Рентабельность производства")
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)")
Расчёт показателя рентабельности продаж:
Private Sub Rprodaj_Click()
Label1.Caption = "Рентабельность продаж"
Text1.Text = InputBox("Чистая прибыль", "Рентабельность продаж")
Text2.Text = InputBox("Валовый доход (выручка)", "Рентабельность продаж")
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)!!!")
Заключение
Основной задачей бизнес-плана является получение целостной, системной оценки перспектив инвестиционного проекта, что невозможно без оценки финансового состояния предприятия, его рентабельности и платежеспособности. С этой точки зрения бизнес-план выступает как форма представления результатов предварительного технико-экономического обоснования проектов. От того, насколько достоверно и обоснованно изложены и оценены потребности и результаты инвестиционного проекта, то есть от того, насколько грамотно составлен бизнес-план, во многом зависит не только возможность привлечения дополнительных источников финансирования, но и успех и эффективность производственно-хозяйственной деятельности предприятия в целом.
Данная программа позволяет рассчитывать результаты финансовой деятельности и оценить финансовое положение предприятия, например, если коэффициент текущей ликвидности < 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с.
Страницы: 1, 2, 3, 4, 5, 6, 7