<
******************************
功能：工作日（date_begin，date_end）
参数：date_begin，date_end开始日期，结束日期；
作者：Ali Cici
日期：2007 7 15
说明：两天的工作日
例如：工作日（2007-05-18
******************************
功能工作日（date_begin，date_end）
date_begin = CDate（date_begin）
date_end = CDate（date_end）
如果IsDate（date_begin）和IsDate（date_end）然后
工作日= 0
D = 0 DateDiff（D
如果周日（date_begin + D）<> 1、平日（date_begin + D）< > 7
工作日=工作日+ 1
最后如果
下一个
其他的
工作日=未知
最后如果
端功能
%>