Цитата:


Sub расчет_смен()

Dim res1, res2, res3, res4, res5 As Single 'наличие на складе ресурсов(вводится в скрипт извне)
Dim potr1, potr2, potr3, potr4, potr5 As Single 'потребление ресурсов при текущем заказе
Dim max As Integer 'макс. вместимость склада для текущего производства
Dim nalichie, proizv As Single 'наличие текущего продукта, а так же его производство за смену
Dim kolSmen As Integer 'для конкретного рабочего количество смен
Dim ostalos As Integer 'сколько часов до изготовления текущего заказа
Dim i As Integer 'счетчик
Dim min As Single 'минимальное количество смен
Dim problem As String
Dim ZP, balans As Integer 'зарплата и баланс недвиги



'ввожу наличие ресурсов на складе
'фактически оно будет воодиться в скрипт извне, но чтоб было с чем сейчас работать скрипту - ввожу вручную.
res1 = 100
res2 = 150
res3 = 8
res4 = 140
res5 = 80

'так же ввожу потребление
potr1 = 7.5
potr2 = 8
potr3 = 3.5
potr4 = 5
potr5 = 4

'ввожу также наличие,макс. вместимость и производство за 1 смену продукта.
nalichie = 10.5
proizv = 3.2
max = 100

balans = 10000
ZP = 600

min = 1000 'введено заведомо большое число


kolSmen = 3 ' опять таки для примера


If res1 / potr1 < min Then 'проверка "узкого места"
min = res1 / potr1 'если узкое место 1 ресурс, то минимально количество смен расчитывается по нему
problem = "ресурса 1"
End If
If res2 / potr2 < min Then ' и т.д. для всех ресурсов
min = res2 / potr2
problem = "ресурса 2"
End If
If res3 / potr3 < min Then
min = res3 / potr3
problem = "ресурса 3"
End If
If res4 / potr4 < min Then
min = res4 / potr4
problem = "ресурса 4"
End If
If res5 / potr5 < min Then
min = res5 / potr5
problem = "ресурса 5"
End If

If balans / ZP < min Then ' проверяем количество денег
min = balans / ZP
problem = "денег"
End If
' может и не самый оптимальный вариант проверки условий, но лениво чето измыслять, да и знаний маловато:(

If (max - nalichie) / proizv < min Then 'если склад забит
min = (max - nalichie) / proizv
problem = "места на складе"
End If


If min < kolSmen Then
MsgBox "количество смен = " & min, vbOKOnly, "проверка" ' лень исправлять дробное число смен
MsgBox "нехватает " & problem, vbOKOnly, "проверка"
MsgBox "всеравно устроиться на работу?", vbOKCancel
Else
MsgBox "Вы успешно устроились на работу. деньги получите.", vbOKOnly
End If

'сюда же можно привязать и проверку того, кто УЖЕ работает на данном предприятии
'и сколько им еще работать, будут ли ресурсы на каждую из Ваших смен
'сделать это можно через время окончания каждой из смен каждого работника
'но мне, если честно лень это делать

End Sub