Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Розробка програми для розрахунку фінансових показників, які у складанні бізнес-плану на ...

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





"Короткострокові зобов'язання ")

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...


Назад | сторінка 21 з 26 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Аналіз взаємозв'язку активу і пасиву балансу
  • Реферат на тему: Зобов'язання з договорів найму житлового приміщення та інші житлові зоб ...
  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...
  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...