vfp 中如何求已知年月的最后一天？

设x年y月
do case y=1 or y=3 or y=5.......
m(当月最大天数)=31
do case y=4 or y=6 or y=.......
m(当月最大天数)=30
do case y=2
if 4%X=0 (这个条件可能还不足名够,详情看看历法上的规则吧,我记得可能还有个不能被100整除)
m=29
else
m=28
endif
endcase

合作Gomonth()函数，并把年化成月。

找下个月的第一天-1即可

日期为A,日期型
a1=a-day(a) &&上月最后一天
a2=a1+32-day(a1+32) &&本月最后一天

到这儿看看，一定有帮助（有源代码）
http://bbs.zc268.com/ShowPost.asp?id=225