怎样获取每月的实际工作日（即不包括周六日）

4848

请问:怎样获取每月的实际工作日（即不包括周六日）

aslxt

NETWORKDAYS(start_date,end_date,holidays)
这个是excel的表函数，只是引用而已。执行起来有点慢，因为要打开excel和关闭excel。大侠们可有更好的方法？
第三个参数，可以自己定义（其实就是特定的节假日）

aslxt

Function MyNetworkDays(ByVal d1 As Date, ByVal d2 As Date) As Long
  '要引用 microsoft excel XX.0 object library
   Dim objExcel As Excel.Application
   Set objExcel = CreateObject("Excel.Application")
   MyNetworkDays = objExcel.Application.NetworkDays(d1, d2)
   objExcel.Quit
   Set objExcel = Nothing
End Function

竹笛

如过光是去周六周日的话先要判断当前月份天数 然后在循环判断是否为周六周日 如果是去掉.......不过确实不怎么实用因为还有好多国定假期呢

YXH_YXH

ACMAIN_CHM 发表于 2009-2-4 22:13
简单的计算方法。如下这个函数可以粗略的实现去除周六，周日。

Public Function wkday(bdt As Date, edt ...

请问有实例么！多谢。

YXH_YXH

huzaixin 发表于 2009-7-14 22:01
Public Function WeekDayCount(firstDate As Date, LastDate As Date) As Integer
'计算工作日天数
    O ...

请问有实例么！多谢。

huzaixin

Public Function WeekDayCount(firstDate As Date, LastDate As Date) As Integer
'计算工作日天数
    On Error GoTo Err:

    Dim i As Integer
    Dim TempDate As Date    '临时日期
    Dim Tempts As Long
    Tempts = DateDiff("d", firstDate, LastDate)
    For i = 0 To Tempts
        TempDate = DateAdd("d", i, firstDate)
        Select Case Format(TempDate, "w")
        Case 2, 3, 4, 5, 6
            WeekDayCount = WeekDayCount + 1
        End Select
    Next
Err:
    Exit Function

End Function

4848

我的理解是：0表示星期六、星期天；1表示工作日；9表示假日。

ycxchen

请问，4楼表中CMODE中的1、0、9等表示什么意思？

4848

但比较细致的做法，因为各企业的排班情况不同，特别是部分法定假日的不确定性（春节，中秋）。
一般来说是做一个日期表 calendar (cdate,cmode)
CDATECMODE1/1/200991/2/200911/3/200901/4/200901/5/200911/6/2009 ...
ACMAIN_CHM 发表于 2009-2-4 22:20

此方法虽然比较麻烦,但是计算准确,谢谢指点!