如何得到当月的最后一天？

如何动态获取某月的最后一天日子？
比如 4月 最后一天是30号
     5月 最后一天是31号
     2月 最后一天是28/29号
我不想通过如下程序去判断，
  
   if  月份=4 then
        最后一天:=30；
   if  月份=5 then
        最后一天:=31；