//====================================================================
// 事件: 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