求助Networdays函数怎样改编下可以增加计算工作日

冰蓝小培 · 发表于 2012-10-29 16:59

Networkdays函数只能自定义减去法定节假日或自定义休息日，但如果公司调整了工作日和休息日，本来系统默认的休息日安排上班了，怎样通过改编函数VBA代码进行实现？求高手提供代码，十分感谢！

hehex · 发表于 2012-10-30 00:43

本帖最后由 hehex 于 2012-10-30 00:43 编辑

这个版大都是初学者，估计很难有能力做到楼主的要求。
楼主不妨把这个问题提到vba程序开发版，那里很多高手一定可以编一个完美的自定义函数给你。

我试写了一个很不成熟的自定义函数，楼主可以试用看看。
目前所有参数只支持单元格引用，用具体日期做参数还不能工作正常
格式是：test_days(起始日期（单元格引用)，终止日期(单元格引用),特殊假日(单元格引用）,工作的假日（单元格引用））
必须写全所有参数，即使没有特殊假日，可以写一个空单元格，但是不可以不写。
具体可以看下附件文件，只是勉强work。

冰蓝小培 · 发表于 2012-10-30 08:41

{:soso_e102:}十分感谢

冰蓝小培 · 发表于 2012-10-30 09:56

hehex 发表于 2012-10-30 00:43
这个版大都是初学者，估计很难有能力做到楼主的要求。
楼主不妨把这个问题提到vba程序开发版，那里很多高手 ...

有个小小的Bug，输入的norest_days值即使不在开始和结束日期范围内，也会被增加计算到总天数里面。能不能帮忙调整下代码呀，偶只能稍微看得懂，但自己不会写，呜呜。。。拜托

hehex · 发表于 2012-10-30 11:19

okay, 我去修改下，我也在一直进行完善，当成对自己的一种锻炼。
另外请注意，这程序好像在excel 2003 下运行有问题，起因是2003 vba 好像无法直接调用工作表函数networkdays,我公司这里只有英文的2003环境，我在家里是用excel 2007 写的，这里只能改代码，具体是否工作还得测试了。

hehex · 发表于 2012-10-30 11:28

请参考附件：

Option Explicit
Private Function test_days(s_date As Range, e_date As Range, sp_holidays As Range, norest_days As Range) As Integer
' Dim start_date, end_date 前面代码是尝试使用时间或者单元格引用，目前使用具体时间不work
' If IsObject(s_date) Then
' start_date = s_date.Value
' Else
' start_date = s_date
' End If
' If IsObject(e_date) Then
' end_date = e_date.Value
' Else
' end_date = e_date
' End If
If TypeName(start_date) <> "Date" Or TypeName(end_date) <> "Date" Then Exit Function
If end_date - start_date < 0 Then Exit Function
If s_date.Count > 1 Or e_date.Count > 1 Then '判断起始终止日期单元格
MsgBox "起始日期和终止日期只能是唯一单元格", 16, "错误"
Exit Function
End If
If TypeName(s_date.Value) <> "Date" Or TypeName(e_date.Value) <> "Date" Then '判断，选择起始和终止时间的单元格是否为日期值,如果不是就退出
MsgBox "起始时间或者终止时间单元格内容不是日期值", 16, "错误"
Exit Function
End If
If (e_date.Value - s_date.Value) < 0 Then
MsgBox "目前暂不能支持终止时间在起始时间之前的计算", 16, "错误"
End If
Dim rng As Range
For Each rng In norest_days
If TypeName(rng.Value) <> "Date" Then '判断删减休息日的单元格引用是否是日期值,如果不是退出
MsgBox "单元格" & rng.Address & "不是日期型数据", 16, "错误"
Exit Function
End If
If rng.Value < s_date.Value Or rng.Value > e_date.Value Then
MsgBox "单元格" & rng.Address & "日期越界，不在起始终止日期范围内", 16, "错误"
Exit Function
End If
If WorksheetFunction.Weekday(rng.Value, 2) <> 6 And WorksheetFunction.Weekday(rng.Value, 2) <> 7 Then '判断是否为周6，日系统函数确认的休息日,如果不是就退出
MsgBox "单元格" & rng.Address & "内容不是系统内假期", 16, "错误"
Exit Function
End If
Next
If sp_holidays Is Nothing Then
test_days = WorksheetFunction.networkdays(s_date, e_date)
Else
test_days = WorksheetFunction.networkdays(s_date, e_date, sp_holidays)
End If
Dim no_rest As Integer
no_rest = norest_days.Count
test_days = test_days + no_rest
End Function

复制代码

冰蓝小培 · 发表于 2012-10-30 13:02

hehex 发表于 2012-10-30 11:28
请参考附件：

我这边是2010版的excel，加进去后运行会报错，可能我输入的Norest_day的值超过开始和结束日期造成的，但实际情况是我会将全年sp_holidays和Norest_day填好，每一个人公式中选中的这两个区域都一样，只是每个人的开始日期和结束日期不同，这样的话，如果Norest_day超过范围，其实不报错，而是不会去count。

hehex · 发表于 2012-10-30 13:32

本帖最后由 hehex 于 2012-10-30 13:33 编辑

已经做了修改，现在越界的日期应该会减去计数，不会报错退出了。
请参看附件，我现在是盲改，没有环境能验证代码的效果。
如果在03 下完成这个任务，系统networkdays的功能要完全用代码重现，这个工作量就有点大了。

具体代码修改在：
将no_rest 计数的定义，赋值提前到 For each in 循环之前
Dim rng As Range, no_rest As Integer
no_rest = norest_days.Count    ' no_rest 赋予初始的所有不休息假日的值,这里是所有暂时不判断

在for each in 循环中判断日期是否越界：
   If rng.Value < s_date.Value Or rng.Value > e_date.Value Then
‘如果不休息的假日早于初始日期或者晚于终止日期
         no_rest = no_rest - 1 ' 将这条记录的计数去掉
      End If
这样一直到循环结束，就将所有的越界日期计数去掉了。算法是这样，但是我这里无法调试，不知道具体实现的结果会不会正确。

详见附件

hehex · 发表于 2012-10-30 21:48

本帖最后由 hehex 于 2012-10-30 21:50 编辑

上面的附件有问题，是我在公司用excel 2003 编辑的代码然后保存的，不知道为什么出错了，在07 里也不能执行了。
看来是遇到了传说中的兼容性问题了。
回来重写了需要修改的部分，应该是可以达到楼主要求的去除越界日期计数的效果了。
楼主请试用一下，看看是否可以在工作上应用。

我会自己再完善改写这个自定义函数：可以实现日期型参数的传递，3,4 参数可以实现空值传递 (optional)并实现日期数组参数的
还需要学习很多东西啊。

用户名		自动登录	找回密码
密码			免费注册