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

End Sub

Нахождение значения текущего актива:

Private Sub Command3_Click() a = InputBox("Итог раздела II актива баланса", "Текущий актив") b = InputBox("Итог раздела III актива баланса")

If a = "" Then a = 0

If b = "" Then b = 0 tekaktiv = -(-a - b)

Label13.Caption = tekaktiv

End Sub

Нахождение значения текущих обязательств:

Private Sub Command4_Click() c = InputBox("Итог раздела II пассива баланса", "Краткосрочные обязательства") s500 = InputBox("Строка 500 раздела II пассива баланса", "Краткосрочные обязательства") s510 = InputBox("Строка 510 раздела II пассива баланса", "Краткосрочные обязательства") s730 = InputBox("Строка 730 раздела II пассива баланса", "Краткосрочные обязательства") s735 = InputBox("Строка 735 раздела II пассива баланса", "Краткосрочные обязательства") s740 = InputBox("Строка 740 раздела II пассива баланса", "Краткосрочные обязательства")

If c = "" Then c = 0

If s500 = "" Then s500 = 0

If s510 = "" Then s510 = 0

If s730 = "" Then s730 = 0

If s740 = "" Then s740 = 0

If s735 = "" Then s735 = 0 tekpassiv = c - s500 - s510 - s730 - s735 - s740

Label15.Caption = tekpassiv

If tekpassiv = 0 Then MsgBox ("Возможно допущена ошибка!")

End Sub

Нахождение значения собственных оборотных средств:

Private Sub Command5_Click() a = InputBox("Итог раздела I пассива баланса", "Собственные оборотные средства") b = InputBox("Итог раздела I актива баланса", "Собственные оборотные средства")

If a = "" Then a = 0

If b = "" Then b = 0 tekaktiv = a - b

Label17.Caption = tekaktiv

End Sub

Пересчёт коэффициентов оборачиваемости в периоды оборотов (в днях)

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





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