排除星期日并将符合条件的用底纹进行区别

kent_73

如何排除“开始日”和“完成日”之间的星期日，并将符合条件的用底纹进行区别。

tmtony

这个需要单独做一个自定义函数，来取得当前日期范围内的星期天数，然后扣除之，得出实际天数
可查询一下有关查询星期天方面的算法和函数

kent_73

那么怎么做呢？还请做个示例。

tmtony

'除掉星期天之后有几个工作日
'tmtony  http://bbs.office-cn.net
'传递开始日期和结束日期进去就可以了
Public Function GetWorkDays(datStart As Date, rdatEnd As Date) As Long
Dim n As Long
  n = DateDiff("WW", datStart, rdatEnd)
  If Weekday(datStart, vbMonday) = 7 Then n = n + 1
  GetWorkDays = n
End Function