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

e

M:

Text1.SetFocus

End Sub

Розрахунок коефіцієнта забезпеченості власними коштами:

Private Sub Ko_Click ()

Text1.Text = "" p> Text2.Text = "" p> Text3.Text = "" p> 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 = "" p> Text2.Text = "" p> Text3.Text = "" p> 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 ("Незадовільна структура балансу! Підприємство не платоспроможне! ") p> 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.ForeCo...