请问如何计算排除周六，周日的时间差？

ronaldxiexiea

要计算2个日期之间的时间差，（以天为单位），但是要排除周末（周六，周日），请问哪位大虾写过这样的函数？

andymark

有现成的涵数

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

[此贴子已经被作者于2006-8-10 11:35:04编辑过]

huzaixin

具体怎么用呢?

huzaixin

是自定义函数吗?从来还没有接触过呢.

ronaldxiexiea

多谢

白河寒秋

已成功使用一年了，这个函数的返回值要减一才是正确 的

wwwwa

不错，学习

hayhay

不错，学习 学习