请教vfp题目
5.编写程序完成下面功能:判断某年某月有多少天。要求从键盘输入年份以及月份,然后再进行判断。提示:闰年的判断规则为:如果某年能够被4整除且不能被100整除,则此年是闰年,或者某年能够被400整除,则此年是闰年。
?DaysOfMonth(2008,3)
Function DaysOfMonth
Parameters nYear,nMonth
If Type('nYear')#'N' Or Int(nYear)#nYear Or nYear<100 Or nYear>9999
Return -1
EndIf
If Type('nMonth')#'N' Or Int(nMonth)#nMonth Or !Between(nMonth,1,12)
Return -2
EndIf
lnDate=Date(nYear,nMonth,1)
Return Day(Gomonth(ldDate,1)-Day(Gomonth(lnDate,1)))