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

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

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



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

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