Пересчёт коэффициентов оборачиваемости в периоды оборотов (в днях)

Private Sub Command6_Click()

If Fotd = 0 Then GoTo M:

a = 365 / Int(Fotd)

Label10.Caption = Int(a)

M:

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

End Sub

 

Расчёт общей капиталоотдачи (фондоотдачи):

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

End Sub

 

Расчёт коэффициента обеспеченности собственными средствами:

Private Sub Ko_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

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

M:

Text1.SetFocus

End Sub

 

Расчёт коэффициента текущей ликвидности:

Private Sub Ktl_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

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

M:

Text1.SetFocus

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с.

⇐ Предыдущая123

Поделиться: