The Digigraphy Ответов: 1

Как добавить часы к дате в зависимости от продолжительности рабочей смены


Привет,
Я создаю программное обеспечение, которое будет определять дату завершения производства на основе даты начала.
Это будет работать так, как если бы он узнал общее количество часов, необходимых для завершения производства, а затем добавил его к дате начала.
Я ХОЧУ ЗНАТЬ
Как добавить часы в зависимости от того, как работает производственная смена. Эти флажки говорят о том, работает смена погоды или нет. Если флажок установлен, это означает, что 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, я внес изменения, о которых идет речь. Пожалуйста, ознакомьтесь с обновленным вопросом

1 Ответов

Рейтинг:
0

Garth J Lancaster

Не уверен на 100%, что вы просите, это "это" ?

If prodShiftWorkingCheckBox.Checked = True Then
' Do the Calculation
' Display the Result Somewhere 
End If