关于生产间歇时间的算法，貌似函数无法解决，待大侠出招，如附件

buxunhua · 发表于 2011-5-31 12:09

sorry

[ 本帖最后由 buxunhua 于 2011-6-16 12:52 编辑 ]

shuyee · 发表于 2011-6-2 08:25

无语.
试试吧.

buxunhua · 发表于 2011-6-6 09:52

lsftest · 发表于 2011-6-6 10:53

说清楚你的细节,例如说,如果某个产品的结束时间是5-14 15:55,或者5-15 01:21,那么下一产品的开始时间是多少?

lsftest · 发表于 2011-6-6 14:36

'久候无回音,又要暂别eh了...
'算了,就这样吧..
'有不明白的自己在调试中添加监视,看看那些变量是怎么变化的就行了..
'细节自己慢慢完善
Sub lsftest()
Dim a(1 To 962), st, et As Date '建数组,用来装载每天工作的时间,以分钟为间隔,每天工作16小时,其实是962分钟.
'填入上午的工作时间
For i = 1 To 481
a(i) = DateAdd("n", i - 1, Cells(6, 7))
Next
'填入下午的时间
For i = 482 To 962
a(i) = DateAdd("n", i + 88, Cells(6, 7))
Next
st = Cells(6, 7)
b = Range("b" & Rows.Count).End(xlUp).Row
For j = 10 To b
'填入开始时间
Cells(j, 15) = st
'计算用时要多少天
dc = (Cells(j, 3) / (110 / Cells(j, 4) / 8) * 60) \ 962
'计算用时除却整数工作日后剩余的分钟数
mc = (Cells(j, 3) / (110 / Cells(j, 4) / 8) * 60) Mod 962
'有秒数的向上取整
If Int((Cells(j, 3) / (110 / Cells(j, 4) / 8) * 60)) <> (Cells(j, 3) / (110 / Cells(j, 4) / 8) * 60) Then mc = mc + 1
'计算开始时间对应于数组里的位置
If TimeValue(st) > TimeValue("3:00:00") Then
If TimeValue(st) > TimeValue("16:00:00") Then
      c = DateDiff("n", TimeValue("8:00:00"), TimeValue(st)) - 88
Else
      c = DateDiff("n", TimeValue("8:00:00"), TimeValue(st)) + 1
End If
Else
      c = DateDiff("n", TimeValue("0:00:00"), TimeValue(st)) + 872
End If

'计算结果时间在数组里的位置:
If mc + c > 962 Then
'如果剩余分钟数超出了晚班下班时间,日期要加一,并减去一天工作的分钟数,再从数组开端数起
'例如,某天晚上23:00才开始新一批产品加工,这批产品总需时20小时,即其加工时间已经是横跨3天了..
dc = dc + 1
mc = mc + c - 962
Else
'如果剩余分钟数不超出一天,直接在数组里获取结束时间分钟数
mc = mc + c
End If
'计算结束时间的日期
et = DateAdd("d", dc, st)
'组合结束时间
rs = DateValue(et) + TimeValue(a(mc))
Cells(j, 16) = rs
'判断机号,如果是另一台机,从新开始计算
If Cells(j, 1) = Cells(j + 1, 1) Then
'换新产品加30分钟
st = DateAdd("n", 30, Cells(j, 16))
Else
st = Cells(6, 7)
End If
Next
End Sub

[ 本帖最后由 lsftest 于 2011-6-6 14:38 编辑 ]

buxunhua · 发表于 2011-6-7 19:41

））））————————+++++++不可见呵呵

[ 本帖最后由 buxunhua 于 2011-6-16 14:11 编辑 ]

northwolves · 发表于 2011-6-7 20:05

原帖由 buxunhua 于 2011-6-7 19:41 发表
恩今天又上来看了还是没人答的出来
呵呵我知道大家都不会这个

楼主这样对待帮助你的朋友未免有点那个了。
15楼的代码很好用啊

shuyee · 发表于 2011-6-11 19:53

12楼的附件都做好了。你就按一下按钮不行么？奇怪了。你是来踢站的么？这点小事，还来劲了，只要把逻辑理清就行了。
你说吧，12楼有什么问题，我来改。还真不信了。

buxunhua · 发表于 2011-6-16 12:43

大哥你误会了关于我在16楼得回复我首先向你致以诚挚的道歉那几天我每天都上来看几次但是没有看到解答当然也包括你在15楼得解答我是真没看到我确信我是真没看到除我之外的其他人的回复所以习惯性的留了一句话把帖子顶上去后来见没人回答也就没有关注这个问题了工作中我自己用辅助的方法演算的今天下午没上班就来看看莫名奇妙的就看到你在15楼得回复了不管怎样请恕小弟无礼了

buxunhua · 发表于 2011-6-16 12:44

尊敬的斑竹先生我记得自己回复的时候真没看见15楼大哥的帖子今天忽然就冒出来了呵呵对不起小弟粗心了

		自动登录	找回密码
密码			免费注册

[求助] 关于生产间歇时间的算法，貌似函数无法解决，待大侠出招，如附件

回复 17楼 northwolves 的帖子