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

> Label18.Caption = Oobakt

Text3.Text = Oobakt

Command6.Enabled = True

M:

Text1.SetFocus

End Sub

Розрахунок віддачі основних засобів і нематеріальних активів:

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

Oos = (A/b)

Label11.Caption = Oos

Text3.Text = Oos

Command6.Enabled = True

M:

Text1.SetFocus

End Sub

Розрахунок оборотності запасів:

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

Ozap = (A/b)

Label19.Caption = Ozap

Text3.Text = Ozap

Command6.Enabled = True

M:

Text1.SetFocus

End Sub

Розрахунок показника рентабельності виробництва:

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

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 = "" 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

Rpr = (A/b)

Label8.Caption = Rpr

Text3.Text = Rpr

...