vfp中怎么得到一个指定日期的当月最后一天期啊

[s3056774]

比如现在知道的日期是'2015-02-01'，如何得到'2015-02-28'？
比如现在知道的日期是'2015-03-01'，如何得到'2015-03-31'？
比如现在知道的日期是'2015-04-01'，如何得到'2015-04-30'？

[lygcw9602]

示例：
Rq={^2015-02-02}
?"本月期末日期：",gomont(date(year(rq),month(rq),1),1)-1

[十豆三]

ldDate=Date() && 当前日期 ldDateB={^2004/02/29} ldDateE={^2005/02/28} *--月天数 ?"月天数",32-Day(ldDate-Day(ldDate)+32) *-- 本月月初 ?"本月月初日期",ldDate-Day(ldDate)+1 ?"本月月初日期",Date(Year(ldDate),Month(ldDate),1) *-- 下月月初 ?"下月月初日期",Gomonth(ldDate-Day(ldDate)+1,1) ?"下月月初日期",Gomonth(ldDate,1)-Day(Gomonth(ldDate,1))+1 ?"下月月初日期",Gomonth(Date(Year(ldDate),Month(ldDate),1),1) *--月末日期 ?"月末日期",Gomonth(ldDate-Day(ldDate)+1,1)-1 ?"月末日期",Gomonth(ldDate,1)-Day(Gomonth(ldDate,1)) ?"月末日期",ldDate-Day(ldDate)+32-Day(ldDate-Day(ldDate)+32) ?"月末日期",Date(Year(Gomonth(ldDate,1)),Month(Gomonth(ldDate,1)),1)-1