Office中国论坛/Access中国论坛

标题: 请教:计算生产计划的函数 [打印本页]

作者: kennylee 时间: 2006-7-8 22:49
标题: 请教:计算生产计划的函数
已知：开始日期（2006-07-01 8：00）、产品生产耗时（500）、周六日休、上班时间：8：00 下班时间：17：00

求：计划完成日期（yyyy-mm-dd hh:mm）

多谢！急急！！！！！

[此贴子已经被作者于2006-7-8 14:51:37编辑过]

作者: andymark 时间: 2006-7-9 01:40
Function Add_Day(BegDate As Variant, IntCh As Integer, intDh As Integer) As Variant

'***************Code Start**********************************
'
'计算完成产量所需的时间,并排除星期六、日
'
'BegDate 开始日期及时间
'IntCh 总耗时
'intDh 每日工时
'用法:  Add_day(#2006-7-1 8:00:00#,500,8)
'作者: andymark 2006-7-8
'http://bbs.office-cn.net
'
'*********************************************************

Dim DateCnt As Variant
Dim EndDays As Integer
Dim IntDay As Integer
Dim IntTime As Integer

IntDay = Int(IntCh / intDh)
IntTime = Int(IntCh Mod intDh)

      DateCnt = BegDate + 1
      EndDays = 0
      Do While EndDays < IntDay - 1
         If Format(DateCnt, "ddd") <> "Sun" And _
                        Format(DateCnt, "ddd") <> "Sat" Then
                  EndDays = EndDays + 1
         End If

         DateCnt = DateAdd("d", 1, DateCnt)

      Loop

      DateCnt = DateAdd("h", IntTime, DateCnt)

      Select Case Format(DateCnt, "ddd")
      Case "sun"
      Add_Day = DateAdd("d", 1, DateCnt)
      Case "Sat"
      Add_Day = DateAdd("d", 2, DateCnt)
   Case Else
      Add_Day = DateCnt
   End Select


End Function
'*********** Code End **************

作者: andymark 时间: 2006-7-9 01:44
以上没处理超过下班17点夸日的时间

作者: kennylee 时间: 2006-7-10 05:20
多谢andymatk引导

作者: huhu662008 时间: 2009-7-12 20:25
学到一招

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)