"Короткострокові зобов'язання ")
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
Перерахунок коефіцієнтів оборотності в періоди оборотів (у днях)
Private Sub Command6_Click ()
If Fotd = 0 Then GoTo M:
a = 365/Int (Fotd)
Label10.Caption = Int (a)
M:
If Oos = 0 Then GoTo N:
b = 365/Int (Oos)
Label11.Caption = Int (b)
N:
If Oobakt = 0 Then GoTo V:
c = 365/Int (Oobakt)
Label18.Caption = Int (c)
V:
If Ozap = 0 Then GoTo F:
d = 365/Int (Ozap)
Label19.Caption = Int (d)
F:
If Odz = 0 Then GoTo H:
x = 365/Int (Odz)
Label20.Caption = Int (x)
H:
If Oba = 0 Then GoTo P:
y = 365/Int (Oba)
Label21.Caption = Int (y)
P:
If Oksk = 0 Then GoTo I:
z = 365/Int (Oksk)
Label22.Caption = Int (z)
I:
End Sub
Завершення роботи програми:
Private Sub Exit_Click ()
End
End Sub
Розрахунок загальної капіталовіддачи (фондовіддачі):
Private Sub Fo_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
Fotd = (A/b)
Label10.Caption = Fotd
Text3.Text = Fotd
Command6.Enabled = Tru...