/********************************************************************
函数名:f_getmonthlastday(anydate)
说明:获取任意月份最后一天
入口:argdate : date型,任意某一天
返回类型:date型
设计:mtu207
日期:2004-07-28
*********************************************************************/
integer li_year,li_month,li_day
date ld_lastday
ld_lastday = argdate
li_year = year(ld_lastday)
li_month = month(ld_lastday) + 1 //下一个月
if li_month > 12 then //跨年度
li_year = li_year + 1
end if
li_month = mod(li_month,12)
li_day = 1 //每个月都是从1号开始的吧?
ld_lastday = RelativeDate( Date(li_Year, li_Month, li_Day), -1 )
return ld_lastday