Office中国论坛/Access中国论坛

标题: 再次请李寻欢帮忙：一个工作日计算的问题 [打印本页]

作者: fyq 时间: 2006-9-6 19:20
标题: 再次请李寻欢帮忙：一个工作日计算的问题
过去曾麻烦李大侠做了一个已知开始日期、工作日，计算到期日期的函数，再次谢了。现在因工作需要，需要计算一个已知开始日期、到期日期，计算工作日的函数，再次麻烦。谢谢。

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

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

[attach]20197[/attach]

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

作者: fyq 时间: 2006-9-7 01:12
自己顶一下，免得沉底了

作者: zxzx2733 时间: 2006-9-7 06:06

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

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

附件???没有。。。

作者: andymark 时间: 2006-9-7 07:08
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

作者: goodorbad 时间: 2006-9-7 18:06
楼上的函数有个缺点：

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

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

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

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

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

作者: andymark 时间: 2006-9-7 18:35

以下是引用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编辑过]

作者: fyq 时间: 2006-9-7 19:03
非常感谢无私的帮助。上传附件传掉了，非常抱歉。

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

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

作者: gfllove 时间: 2006-11-3 16:42
怎样得到符件,急

作者: gamepower111 时间: 2006-11-3 19:11
这里的人真热心啊

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