dim fanhuizhi
fanhuizhi=checkdate(2,31,2015)
if fanhuizhi <> "" then
   msgbox fanhuizhi,48,"报错信息"
else
   msgbox "you xiao"
end if


function checkdate(smonth,sday,syear)
  on error resume next
  dim date1
  date1=cdate(sday&"/"&smonth&"/"&syear)
  if err.number <> 0 then
     err.clear
     date1=dateadd("m",1,smonth&"/"&syear)
     date1=dateadd("d",-1,date1)
     checkdate="there are only "&day(date1)&" days in "&smonth
  else
     checkdate=""
     end if
end function
复制代码