如何求扣掉双休日的工作日?

saffier155

向高手请教下.为什么下面的这段代码无法实现求出实际工作日的?总是相差那么一天.只有二月份测出来是对的

  Dim aaa, bbb, cce, xxi     As Integer
  
            y = 年份
          m = 月份
   
          '**   返回月的第一天日期
          MonthStart = DateSerial(y, m, 1)
   
  
  
    '**   计算该月中有几天
          numdays = DateDiff("d", MonthStart, DateAdd("m", 1, MonthStart))
   
  aaa = Weekday(MonthStart)
   
      If aaa = 1 Then     '因为表示星期天,7表示星期一
          aaa = 7
        Else
          aaa = aaa - 1
      End If
   
  bbb = 6 - aaa
  ccc = 0  '判断期间休息多少天(不算非周末的节假日)
  xxi = 0                   'xxi为周数
   
   
    Do While Not cce > numdays
      cce = bbb + 7 * xxi
      ccc = ccc + 2
      xxi = xxi + 1
      Loop
   
    If ccc > 0 Then
        ccc = ccc - 2
    End If
  工作日 = numdays - ccc

jicheng

Function Work_Days(BegDate As Variant, EndDate As Variant) As Integer
'Ó÷¨: Work_Days(#2006-7-1#,#2006-7-31#)
Dim WholeWeeks As Variant
Dim DateCnt As Variant
Dim EndDays As Integer

    BegDate = DateValue(BegDate)

    EndDate = DateValue(EndDate)
        WholeWeeks = DateDiff("w", BegDate, EndDate)
        DateCnt = DateAdd("ww", WholeWeeks, BegDate)
        EndDays = 0
        Do While DateCnt < EndDate
            If Format(DateCnt, "ddd") <> "Sun" And _
                          Format(DateCnt, "ddd") <> "Sat" Then
                    EndDays = EndDays + 1
            End If
            DateCnt = DateAdd("d", 1, DateCnt)
        Loop
        Work_Days = WholeWeeks * 5 + EndDays
End Function

saffier155

多谢这位高手!~太感谢了.激动啊..终于成功了..偶都试了好多种方法了.还是你的最管用...