一个自己封装的日期时间操作的用户对象[3]

ction date of_getnextworkday (date ad_date);/*函数功能：获取指定日期跳过周末的下一个工作日 返回值：date 返回指定的指定日期跳过周末的下一个工作日 参数： ad_date date 日期 */ return of_skipholidays(relativedate (ad_date,1),1) end function public function date of_skipholidays (datastore ads_holidays, string as_columnname, date ad_date, integer ai_increment);/*函数功能：获取指定日期跳过周末和节假日的下一个日期 返回值：date 返回指定的指定日期跳过周末和节假日的下一个日期 参数：adw_holidays datastore存储指定节假日的数据存储对象 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 ai_increment integer 指定的跳过天数 */ date ld_date ld_date=ad_date do while of_lsweekend(ld_date)=true or ads_holidays.find("string("+as_columnname+",'yyyy-mm-dd')"+"='"+string(ld_date,"yyyy-mm-dd")+"'",1,ads_holidays.rowcount())<>0 ld_date=relativedate ( ld_date, ai_increment ) loop return ld_date end function public function date of_skipholidays (datawindow adw_holidays, string as_columnname, date ad_date, integer ai_increment);/*函数功能：获取指定日期跳过周末和节假日的下一个日期 返回值：date 返回指定的指定日期跳过周末和节假日的下一个日期 参数：adw_holidays datawindow存储指定节假日的数据窗口 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 ai_increment integer 指定的跳过天数 */ date ld_date ld_date=ad_date do while of_lsweekend(ld_date)=true or adw_holidays.find("string("+as_columnname+",'yyyy-mm-dd')"+"='"+string(ld_date,"yyyy-mm-dd")+"'",1,adw_holidays.rowcount())<>0 ld_date=relativedate ( ld_date, ai_increment ) loop return ld_date end function public function date of_getnextworkday (datastore ads_holidays, string as_columnname, date ad_date);/*函数功能：获取指定日期跳过周末和节假日的下一个工作日 返回值：date 返回指定的指定日期跳过周末的下一个工作日 参数：ads_holidays datastore存储指定节假日的数据存储对象 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 */ return of_skipholidays(ads_holidays,as_columnname,relativedate (ad_date,1),1) end function public function date of_getfirstworkday (datawindow adw_holidays, string as_columnname, date ad_date);/*函数功能：获取指定日期所在月的第一个工作日 返回值：date 返回指定日期所在月的第一个工作日 参数：adw_holidays datawindow存储指定节假日的数据存储对象 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 */ date d_temp d_temp=date(year(ad_date),month(ad_date),1) return of_skipholidays(adw_holidays,as_columnname,d_temp,1) end function public function date of_getfirstworkday (datastore ads_holidays, string as_columnname, date ad_date);/*函数功能：获取指定日期所在月的第一个工作日 返回值：date 返回指定日期所在月的第一个工作日 参数：ads_holidays datastore存储指定节假日的数据存储对象 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 */ date d_temp d_temp=date(year(ad_date),month(ad_date),1) return of_skipholidays(ads_holidays,as_columnname,d_temp,1) end function public function date of_getpreviousworkday (datastore ads_holidays, string as_columnname, date ad_date);/*函数功能：获取指定日期跳过周末和节假日的上一个工作日 返回值：date 返回指定的指定日期跳过周末的上一个工作日 参数：ads_holidays datastore存储指定节假日的数据存储对象 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 */ return of_skipholidays(ads_holidays,as_columnname,relativedate (ad_date,-1),-1) end function public function date of_getfirstworkday (date ad_date);/*函数功能：获取指定日期所在月的第一个工作日 返回值：date 返回指定日期所在月的第一个工作日 参数： ad_date date 日期 */ date d_temp d_temp=date(year(ad_date),month(ad_date),1) return of_skipholidays(d_temp,1) end function public function date of_getlastworkday (datastore ads_holidays, string as_columnname, date ad_date);/*函数功能：获取指定日期所在月的最后一个工作日 返回值：date 返回指定日期所在月的最后一个工作日 参数：ads_holidays datastore存储指定节假日的数据存储对象 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 */ date d_temp d_temp=of_getlastdayinmonth(ad_date) return of_skipholidays(ads_holidays,as_columnname,d_temp,-1) end function public function date of_getlastworkday (datawindow adw_holidays, string as_columnname, date ad_date);/*函数功能：获取指定日期所在月的最后一个工作日 返回值：date 返回指定日期所在月的最后一个工作日 参数：adw_holidays datawindow存储指定节假日的数据窗口 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 */ date d_temp d_temp=of_getlastdayinmonth(ad_date) return of_skipholidays(adw_holidays,as_columnname,d_temp,-1) end function public function date of_getlastworkday (date ad_date);/*函数功能：获取指定日期所在月的最后一个工作日 返回值：date 返回指定日期所在月的最后一个工作日 参数： ad_date date 日期 */ date d_temp d_temp=of_getlastdayinmonth(ad_date) return of_skipholidays(d_temp,-1) end function public function integer of_getdaysinmonth ();/*函数功能：获取指定日期所在月份的天数 返回值：integer 指定日期所在月份的天数 参数：ad_date date 日期*/ return integer(28+integer(mid('3'+string(abs(sign(mod(sign(mod(abs(year(today())),4))+sign(mod(abs(year(today())),100))+sign(mod(abs(year(today())),400)),2)) -1))+'3232332323',month(today()),1))) end function public function integer of_countdowinmonth (date ad_date, integer ai_dow);/*函数功能：获取指定日期所在月份的指定星期几的天数 返回值：integer 指定日期所在月份的指定星期几的天数 参数：ad_date date 日期 ai_dow integer 指定的星期几 1代表星期天......7代表星期六*/ date d_first integer intcount,intmonth if(ai_dow<1 or ai_dow>7) then a