给定月份，怎么得到该月份的最后一天

给定月份，如何得到该月份的最后一天
单元格b1的值为 12 ， 如何实现c1的值为日期‘20101231’？ 
  b1=1 c1=20100131 ? 
vba如何实现？

[解决办法]
=DATE(YEAR(NOW()),A1+1,0)