如何计算如下日期值

fine88888888

已知起始日期及终止日期，，计算这段日期除去星期天及星期六下午的日期天数。。我知道除去星期天可用=workday([起始日期],[终止日期])，，，但再除去星期六下午如何计算？？？

Henry D. Sy

最笨的办法就是判断是不是星期六，如是扣掉0.5天

fine88888888

是不是判断此时间段有N个星期六，然后减去N X 0.5 天？？怎么判断有N个星期六呢？？

Henry D. Sy

fine88888888 发表于 2012-4-10 11:23
是不是判断此时间段有N个星期六，然后减去N X 0.5 天？？怎么判断有N个星期六呢？？

传例子吧

Henry D. Sy

1. Public Function totalWorkday(dateA As Date, dateB As Date) As Single
   
2.     Dim i As Integer
   
3.     Dim j As Integer
   
4.     Dim k As Integer
   
5.     Dim l As Integer
   
6.       
   
7.     i = DateDiff("d", dateA, dateB)
   
8.     For j = 0 To i
   
9.         If Weekday(dateA + j) = 7 Then
   
10.             k = k + 1
    
11.         End If
    
12.         If Weekday(dateA + j) = 1 Then
    
13.             l = l + 1
    
14.         End If
    
15.     Next
    
16.     totalWorkday = i + 1 - l - k * 0.5
    
17. End Function
    

复制代码

aslxt

excel的workday已经去掉了周日和周六的呀，access没有workday函数啊

fine88888888

请见附例报表红色字段，，原来这样可以除掉星期天了，但现在要除去星期六下午，，不知如何计算了！！

Henry D. Sy

fine88888888 发表于 2012-4-10 13:38
请见附例报表红色字段，，原来这样可以除掉星期天了，但现在要除去星期六下午，，不知如何计算了！！

5楼的不行吗

Henry D. Sy

fine88888888 发表于 2012-4-10 13:38
请见附例报表红色字段，，原来这样可以除掉星期天了，但现在要除去星期六下午，，不知如何计算了！！

附件只是一个空报表，没有数据源的。

fine88888888

5楼的代码放在哪呢？加载报表时？？可是报表的数据是分组的，，统计每单货的开始时间及完成时间总和（除去星期天和星期六下午）。。公司现在实行5天半制，，难搞啊，，数据库比例大，只能传报表了。。还有没有其他办法啊！！以前只除去星期天用这个=workday([起始日期],[终止日期])就行了！！