PB：获取任意月份的最后一天

/********************************************************************
函数名：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