请教:计算生产计划的函数

kennylee

已知：开始日期（2006-07-01 8：00） 、产品生产耗时（500）、 周六日休  、上班时间：8：00  下班时间：17：00

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

多谢！急急！！！！！

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

andymark

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

以上没处理超过下班17点夸日的时间

kennylee

多谢andymatk引导

huhu662008

学到一招