Предыдущая страница реферата | 13  14  15  16  17  18  19  20  21  22  23 | Следующая страница реферата

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

Расчёт оборачиваемости дебиторской задолженности:

Рекомендуем скачать другие рефераты по теме: курсовая работа политика, бесплатные дипломные работы.



Предыдущая страница реферата | 13  14  15  16  17  18  19  20  21  22  23 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки