Как добавить часы к дате в зависимости от продолжительности рабочей смены
Привет,
Я создаю программное обеспечение, которое будет определять дату завершения производства на основе даты начала.
Это будет работать так, как если бы он узнал общее количество часов, необходимых для завершения производства, а затем добавил его к дате начала.
Я ХОЧУ ЗНАТЬ
Как добавить часы в зависимости от того, как работает производственная смена. Эти флажки говорят о том, работает смена погоды или нет. Если флажок установлен, это означает, что shift работает, в противном случае нет.
Основываясь на сменной работе, он добавит часы к дате, например
Исходя из расчета, необходимое время составляет 900 часов, теперь, если в понедельник и вторник работает только одна смена, то при расчете конечной даты он будет учитывать только 12 часов из этих 900 часов для понедельника и вторника.
Что я уже пробовал:
production24 = ((rpm * 24 * 60) / (pick * 39.37)) * (eff / 100) production12 = ((rpm * addvalue * 60) / (pick * 39.37)) * (eff / 100) production1 = ((rpm * 1 * 60) / (pick * 39.37)) * (eff / 100) production24 = Math.Round(production24, 2, MidpointRounding.AwayFromZero) production12 = Math.Round(production12, 2, MidpointRounding.AwayFromZero) production1 = Math.Round(production1, 2, MidpointRounding.AwayFromZero) pro_24.Text = Convert.ToString(production24) Pro_12.Text = Convert.ToString(production12) Pro_1.Text = Convert.ToString(production1) If fl <> 0 And production1 <> 0 Then timereqinhr = fl / production1 Else timereqinhr = 0 End If getdate = DatePicker.Value + Time_Picker.Value.TimeOfDay falldate = getdate.AddHours(timereqinhr + offshift) fallingtime.Text = falldate.ToString("dd/MM/yyyy | hh:mm tt") Label9.Text = "Time required for " + fabric_Length.Text + " Meters" Dim productiontime, productionhr, productionmin As String productiontime = Math.Floor(timereqinhr / 24) productionhr = Math.Floor(((timereqinhr / 24) - productiontime) * 24) productionmin = Math.Floor(((((timereqinhr / 24) - productiontime) * 24) * 60) - (productionhr * 60)) Label8.Text = (productiontime + " Days, " + productionhr + " Hours " + productionmin + " Min ")
CHill60
Так в чем же заключается ваш вопрос?
The Digigraphy
Эй, Chill60, я внес изменения, о которых идет речь. Пожалуйста, ознакомьтесь с обновленным вопросом