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

lor = & HFF &

If c> 1 Then MsgBox ("Підприємство найближчим часом може відновити платоспроможність ")

If c> 1 Then Label6.ForeColor = & HC000 &

M:

Text1.SetFocus

End Sub

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

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

Oba = (A/b)

Label21.Caption = Oba

Text3.Text = Oba

Command6.Enabled = True

M:

Text1.SetFocus

End Sub

Розрахунок оборотності дебіторської заборгованості:

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

Odz = (A/b)

Label20.Caption = Odz

Text3.Text = Odz

Command6.Enabled = True

M:

Text1.SetFocus

End Sub

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

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

Oksk = (A/b)

Label22.Caption = Oksk

Text3.Text = Oksk

Command6.Enabled = True

M:

Text1.SetFocus

End Sub

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

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

Oobakt = (A/b)