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

YXH_YXH

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

请问有实例么！多谢。

YXH_YXH

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

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

请问有实例么！多谢。

竹笛

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

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

aslxt

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