Office中国论坛/Access中国论坛

标题: 如何求扣掉双休日的工作日? [打印本页]

作者: saffier155 时间: 2007-10-22 10:35
标题: 如何求扣掉双休日的工作日?
向高手请教下.为什么下面的这段代码无法实现求出实际工作日的?总是相差那么一天.只有二月份测出来是对的

  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 时间: 2007-10-22 11:02
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 时间: 2007-10-22 13:05
多谢这位高手!~太感谢了.激动啊..终于成功了..偶都试了好多种方法了.还是你的最管用...

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