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)))