[原创]计算扣除任意时间段及派生的求工作日的自定义函数

fjlhgs

自定义了一个使用比networkdays()函数更加方便的计算工作日的函数workdays(x,y,Optional z)及派生的求n个工作日后日期的函数workdate(x,y,Optional z)(x为起始日,y为工作日数,z为自定义假期.

'z可以输入星期值和/或日期值,可以输入星期范围或任期范围，日期范围可以输入一次性日期段或重复性日期段（如节日）

缺省z表示扣除法定除春节外节日(即1月1日，5月1日～3日，10月1日～3日)及星期六、日

输入格式为,范围以短划线"-"表示，直接输入数字表示星期值,日期分隔符必须为"."且从左至右为年月日顺序排列,如果日期段与星期值重合希望只扣1次则在最后加上字母y作为标识符，否则不加任何字符
举例说明 求2001年1月1日～2006年12月8日时间段扣除星期六、星期日、每年1月1日(节日重复扣)、2005年3月1日-4日(只扣1次)、2005年5月1日～3日(节日重复扣)后的剩余天数可写为以下形式
写法1  =workdays("2001/1/1","2006/12/8",{6,7,"1.1","2005.3.1-4y","2005.5.1-3"})
写法2  =workdays("2001/1/1","2006/12/8",{"6-7","1.1","2005.3.1-3.4y","2005.5.1-5.3"})
写法3  =workdays("2001/1/1","2006/12/8",{"6-7","1.1","2005.3.1-2005.3.4y","2005.5.1-2005.5.3"})

附件为函数加载宏 

LCuxLpXW.rar (18.53 KB, 下载次数: 221)

2006-12-11 22:21 上传

点击文件名下载附件
[原创]计算扣除任意时间段及派生的求工作日的自定义函数

[此贴子已经被作者于2006-12-11 22:21:33编辑过]

aichong

好，收藏了。谢谢楼主分享！

yuanzhuping

好东西。谢了。

1851244

好象有点错误啊，添加节日后会出错（天数+1），每添一次，就多+1天

开始日期	结束日期	工作日
2006年12月29日	2007年1月4日	3

公式=workdays(H2,I2,{"6-7","1.1-1.3","5.1-5.3","10.1-10.3","2007.2.18-2.20"})

H2是开始日期，I2是结束日期

12-30和12-31是双休，2007.1.1-1.3是节假日，应该是两天的，怎么就是三天，如果取消了"2007.2.18-2.20" 就变成2天，公式正确。

请斑竹修改一下

fjlhgs

QUOTE:

以下是引用1851244在2006-12-11 12:40:20的发言：

好象有点错误啊，添加节日后会出错（天数+1），每添一次，就多+1天

开始日期	结束日期	工作日
2006年12月29日	2007年1月4日	3

公式=workdays(H2,I2,{"6-7","1.1-1.3","5.1-5.3","10.1-10.3","2007.2.18-2.20"})

H2是开始日期，I2是结束日期

12-30和12-31是双休，2007.1.1-1.3是节假日，应该是两天的，怎么就是三天，如果取消了"2007.2.18-2.20" 就变成2天，公式正确。

请斑竹修改一下

谢谢 1851244 朋友的测试，原程序有错误，修正后已在1楼重新上传。

另外将缺省z时的节日设定修正为1月1日，5月1日～3日，10月1日～3日；

日期段后增加了一个当日期段与星期值重复时是否重复扣的标识符"y"

欢迎大家测试。

wingtalker

加载完函数,还是算的不对.2007-3-1和2007-6-1结果为64天,如果刨除6,7就变成了69天``````

谁看看这是那出的问题?

公式如下:=workdays(2007-3-1,2007-6-1,{6,7})

 

[em06][em06]

fjlhgs

公式：=workdays("2007-3-1","2007-6-1")不带可选参数z,表示起始日期之间扣除法定节日5.1~5.3和周六、日后的剩余天数结果为64日。

公式：=workdays(2007-3-1,2007-6-1,{6,7})起始日期应加双引号：=workdays("2007-3-1","2007-6-1",{6,7})，它表示起始日期之间扣除大括号内参数的剩余天数，即扣除周六、日后的天数，结果为67日，比前者多3日，因为没有扣除五一节3天的节日。

LONGG

谢谢分享！

龙井

jonn

厉害 收下啦 谢谢