工作日计算

//====================================================================
// 事件: w_disinfect_accept.uf_workday()
//--------------------------------------------------------------------
// 描述:工作日计算
//--------------------------------------------------------------------
// 参数:
//  value date ad_begin 开始时间
//  value long al_day      工作日天数
//--------------------------------------------------------------------
// 返回:  date 返回计算时间
//--------------------------------------------------------------------
// 作者: Ran  日期: 2007年06月07日
//--------------------------------------------------------------------
// Copyright (c) 2002-2006 TRUEWAY(TM), All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
Date ld_end

If IsNull(ad_begin) Or ad_begin < Date("2000-01-01") Then ad_begin = Today()
If IsNull(al_day) Or al_day <= 0 Then Return ad_begin

Long ll_day
Integer li_daynumber,li_number
//把日期定位到周一，并计算与周一相差的天数
li_daynumber = DayNumber(ad_begin) - 2
ad_begin = RelativeDate(ad_begin,0 - li_daynumber)

//把工作日转换为正常日
li_number = al_day + li_daynumber
ll_day = (li_number) / 5
ll_day *= 7
ll_day += Mod(li_number,5)

ld_end = RelativeDate(ad_begin,ll_day)

Return ld_end