Question

我正在创建一个软件，该软件可以根据开始日期找出生产完成日期。这将像查找完成生产所需的总小时数，然后将其添加到开始日期一样工作。现在，我想根据生产班次的工作时间来增加小时数。这些复选框表明天气变化是否有效。如果选中此复选框，则表示轮班正在运转，否则就没有。根据轮班工作，它会加上迄今为止的小时数，例如根据计算，所需时间为900小时，现在，如果星期一和星期二只有一个班次工作，则在计算结束日期时，它将考虑从星期一和星期二的这900个小时中仅选择12个小时。

Screenshot of WinForm

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 ")

根据轮班时间将小时添加到日期

0 个答案: