如何写出求工作日的函数

喳喳林

工作日,是指扣除周六,周日.

例:2005-8-21  到 2005-8-31 应该是 8 个工作日

    而用日期计算是 11 天

   我用Weekday 写了一个,但我觉得不理想.

请赐教,谢谢大家.

CHENZHIRONG

分享Function Work_Days (BegDate As Variant, EndDate As Variant) As Integer

' Note that this function does not account for holidays.

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

喳喳林

谢谢,很实用.

luodream

EXCEL自带有计算工作日的函数，难道ACCESS没有吗？