再次请李寻欢帮忙：一个工作日计算的问题

fyq

过去曾麻烦李大侠做了一个已知开始日期、工作日，计算到期日期的函数，再次谢了。现在因工作需要，需要计算一个已知开始日期、到期日期，计算工作日的函数，再次麻烦。谢谢。

现将要求附件传上，原计算已知日期、工作日，计算到期日期的函数一并传上。

修改好的根据休息表和加班表计算到期日期和工作日，请斧正。

[此贴子已经被作者于2006-9-7 11:32:58编辑过]

gamepower111

这里的人真热心啊

gfllove

怎样得到符件,急

fyq

非常感谢无私的帮助。上传附件传掉了，非常抱歉。

我在函数的基础上，把最后一句：“Works_Days = IntDays”修改为“Works_Days = IntDays－1”，即计算的结果不包括当天。

现完善了计算不是法定假日的问题，用一个休息表、一个加班表来区分不是法定休息日和工作日。现将修改后的结果发上来，请斧正。

andymark

以下是引用goodorbad在2006-9-7 10:06:00的发言：


楼上的函数有个缺点：

1. 当双休日也正常上班的时候，对于公司而言，算工作日。而函数认为不算。

2. 当法定节假日为非双休日时，对于公司而言，不算工作日，而函数认为算。

这样求出的工作日和实际情况有差异。

     上面的确是不计算双休日,工作日、休息日、法定假日对于每个企业来说会有些不同,其实原理是一样的,根据自已的情况,稍作修改就行了

　   对于假日的计算可以做一个表,储存调用,可以参考下面例子的做法

      http://www.office-cn.net/forum.php?mod=viewthread&tid=45170&replyID=&skin=1
     

[此贴子已经被作者于2006-9-7 10:55:30编辑过]

goodorbad

楼上的函数有个缺点：

1. 当双休日也正常上班的时候，对于公司而言，算工作日。而函数认为不算。

2. 当法定节假日为非双休日时，对于公司而言，不算工作日，而函数认为算。

这样求出的工作日和实际情况有差异。

下帖中有个求工作日和结束日期的函数，供你参考。

http://www.office-cn.net/forum.php?mod=viewthread&tid=46980&extra=&page=1#46980

andymark

Function Works_Days(BegDate As Variant, EndDate As Variant) As Integer
Dim DateCnt As Variant
Dim EndDays As Variant
Dim IntDays As Integer
   
        DateCnt = DateValue(BegDate)

       EndDays = DateValue(EndDate)
        IntDays = 0
        Do While DateCnt <= EndDays
            If Format(DateCnt, "ddd") <> "Sun" And _
                          Format(DateCnt, "ddd") <> "Sat" Then
                   IntDays = IntDays + 1
            End If
   
            DateCnt = DateAdd("d", 1, DateCnt)
            
        Loop
        
        Works_Days = IntDays
End Function

zxzx2733

以下是引用fyq在2006-9-6 11:20:00的发言：

现将要求附件传上，原计算已知日期、工作日，计算到期日期的函数一并传上。

附件???没有。。。

fyq

自己顶一下，免得沉底了