Office中国论坛/Access中国论坛

标题: 请教 [打印本页]

作者: 逸致1 时间: 2003-6-2 01:54
标题: 请教
请问如何编写计算两个日期之间的“工作日”天数，也就是扣除星期六、星期日的天数。
例如，有两个日期字段，一个计算工作日天数的文本框，在输入两个日期后，文本框中自动显示两日期之间的工作日天数。

作者: tomzy 时间: 2003-6-2 17:50
提示: 作者被禁止或删除内容自动屏蔽

作者: 逸致1 时间: 2003-6-8 09:36
谢谢指教。

作者: Trynew 时间: 2003-6-8 21:00
大于一周的天数每周5天不用判断，下面是一个取得工作日的函数（不判断节假日）：
Public Function WorkDays(BeginDate As Date, EndDate As Date) As Integer
Dim i As Integer
If EndDate < BeginDate Then Exit Function
WorkDays = (((EndDate - BeginDate) + 1) \ 7) * 5
For i = 0 To ((EndDate - BeginDate) + 1) Mod 7 - 1
      '判断是否为星期六或星期天
      If Weekday(EndDate - i, vbSaturday) <> 1 And _
         Weekday(EndDate - i, vbSaturday) <> 2 Then
         WorkDays = WorkDays + 1
      End If
Next
End Function

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