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

f_getlastdayinyear (date ad_date) public function date of_getlastdayinyear () public function date of_getlastdayinyear (integer ai_year) public function integer of_countyeardays (date ad_date) public function integer of_countyeardays () public function integer of_countyeardays (integer ai_year) public function string of_getconstellation (date ad_date) public function string of_getgenus (integer ai_year) public function string of_convertdayoflunar (date ad_date) public function datetime of_relativedatetime (datetime ad_datetime, long al_number, string as_kind) public function string of_gettgdz (integer ai_year) public function string of_gettgdz (date ad_date) public function string of_gettgdz () public function boolean of_isleapyear () public function string of_getgenus (date ad_date) public function string of_getgenus () public function integer of_countdowinmonth () public function integer of_getage (date ad_brithday) public function integer of_countdowinmonth (integer ai_dow) public function long of_countweeksinyear () public function boolean of_setsystemtime (datetime adt_datetime) end prototypes public function integer of_getdaysinmonth (date ad_date);/*函数功能：获取指定日期所在月份的天数 返回值：integer 指定日期所在月份的天数 参数：ad_date date 日期*/ return integer(28+integer(mid('3'+string(abs(sign(mod(sign(mod(abs(year(ad_date)),4))+sign(mod(abs(year(ad_date)),100))+sign(mod(abs(year(ad_date)),400)),2)) -1))+'3232332323',month(ad_date),1))) end function public function date of_getlastdayinmonth (date ad_date);/*函数功能：获取指定日期所在月份的最后一天 返回值：date 指定日期所在月份的最后一天 参数：ad_date date 日期*/ return date(year(ad_date),month(ad_date),integer(28+integer(mid('3'+string(abs(sign(mod(sign(mod(abs(year(ad_date)),4))+sign(mod(abs(year(ad_date)),100))+sign(mod(abs(year(ad_date)),400)),2)) -1))+'3232332323',month(ad_date),1)))) end function public function date of_getlastdayinmonth (integer ai_year, integer ai_month);/*函数功能：获取指定年份，月份的最后一天 返回值：date 指定年份，月份的最后一天 参数：integer ai_year 年份 integer ai_month 月份*/ date ld_date ld_date=date(ai_year,ai_month,1) return date(year(ld_date),month(ld_date),integer(28+integer(mid('3'+string(abs(sign(mod(sign(mod(abs(year(ld_date)),4))+sign(mod(abs(year(ld_date)),100))+sign(mod(abs(year(ld_date)),400)),2)) -1))+'3232332323',month(ld_date),1)))) end function public function date of_getfirstdayinmonth (date ad_date);/*函数功能：获取指定日期所在月份的第一天 返回值：date 指定日期所在月份的第一天 参数：date ad_date 日期 */ return date(year(ad_date),month(ad_date),1) end function public function date of_getfirstdayinmonth (integer ai_year, integer ai_month);/*函数功能：获取指定年份，月份的第一天 返回值：date 指定年份，月份的第一天 参数：integer ai_year 年份 integer ai_month 月份*/ return date(ai_year,ai_month,1) end function public function boolean of_isleapyear (date ad_date);/*函数功能：获取指定日期所在年份是否为闰年 返回值：boolean 指定日期所在年份是否为闰年,true为是闰年，false为平年 参数：ad_date date 日期*/ integer li_year li_year=year(ad_date) return abs(sign(mod(sign(mod(abs(li_year),4))+sign(mod(abs(li_year),100))+sign(mod(abs(li_year),400)),2)) -1)=1 end function public function boolean of_isleapyear (integer ai_year);/*函数功能：获取指定年份是否为闰年 返回值：boolean 指定年份是否为闰年,true为是闰年，false为平年 参数：ai_year integer 年份*/ return abs(sign(mod(sign(mod(abs(ai_year),4))+sign(mod(abs(ai_year),100))+sign(mod(abs(ai_year),400)),2)) -1)=1 end function public function boolean of_lsweekend (date ad_date);/*函数功能：获取指定日期是否为周末 返回值：date 指定日期是否为周末 参数：ad_date date 日期*/ string ls_week ls_week=dayname(ad_date) choose case dayname(ad_date) case "saturday","sunday" return true case else return false end choose end function public function date of_skipholidays (date ad_date, integer ai_increment);/*函数功能：获取指定日期跳过周末的下一个日期 返回值：date 返回指定的指定日期跳过周末的下一个日期 参数：ad_date date 日期 ai_increment integer 指定的跳过天数 */ date ld_date ld_date=ad_date do while of_lsweekend(ld_date)=true ld_date=relativedate ( ld_date, ai_increment ) loop return ld_date end function public function date of_getnextworkday (datawindow adw_holidays, string as_columnname, date ad_date);/*函数功能：获取指定日期跳过周末和节假日的下一个工作日 返回值：date 返回指定的指定日期跳过周末的下一个工作日 参数：adw_holidays datawindow存储指定节假日的数据窗口 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 */ return of_skipholidays(adw_holidays,as_columnname,relativedate (ad_date,1),1) end function public function date of_getpreviousworkday (datawindow adw_holidays, string as_columnname, date ad_date);/*函数功能：获取指定日期跳过周末和节假日的上一个工作日 返回值：date 返回指定的指定日期跳过周末的上一个工作日 参数：adw_holidays datawindow存储指定节假日的数据窗口 as_columnname string 数据窗口中存储节假日的列名 ad_date date 日期 */ return of_skipholidays(adw_holidays,as_columnname,relativedate (ad_date,-1),-1) end function public function date of_getpreviousworkday (date ad_date);/*函数功能：获取指定日期跳过周末的上一个工作日 返回值：date 返回指定的指定日期跳过周末的上一个工作日 参数： ad_date date 日期 */ return of_skipholidays(relativedate (ad_date,-1),-1) end function public fun