有什么方法可以获得本月或某个月有多少天,多少个星期天?

麻烦大侠不吝赐教,谢谢!

在A1格中给定一个日期，在B1格中设定下列公式可求出给定日期所在月份的天数：
=IF(MONTH(A1)=12,DATEVALUE(CONCATENATE(YEAR(A1)+1,"/",1,"/",1)),DATEVALUE(CONCATENATE(YEAR(A1),"/",MONTH(A1)+1,"/",1)))-DATEVALUE(CONCATENATE(YEAR(A1),"/",MONTH(A1),"/",1))
然后在C1设定下列公式可以求出给定日期所在月份的星期天的个数：
=TRUNC((B1-1+WEEKDAY(DATEVALUE(CONCATENATE(YEAR(A1),"/",MONTH(A1),"/",1)),2))/7)

可以简单一点
=DAY(DATE(YEAR(A1),MONTH(A1)+1,0))
=ROUNDUP(((DATE(YEAR(A1),MONTH(A1)+1,0)-DATE(YEAR(A1),MONTH(A1),DAY((8-WEEKDAY(DATE(YEAR(A1),MONTH(A1),1),2)))))/7)+0.000000001,)

改一下
=INT(((DATE(YEAR(A1),MONTH(A1)+1,0)-DATE(YEAR(A1),MONTH(A1),DAY((8-WEEKDAY(DATE(YEAR(A1),MONTH(A1),1),2)))))/7)+1)

谢谢赐教!
还请再指点小弟在VBA中怎样实现.

再次感谢 吧主 和 juyouhh 的帮忙,谢谢!~

谢谢4楼了！！

整理一下这个问题，A1给定一个日期。
B1按4楼公式得出本月天数：
=DAY(DATE(YEAR(A1),MONTH(A1)+1,))
C1得出本月几个星期天：
=SUM(ROUNDUP((TEXT(A1,"e-m")-1+B1*{1,0})/7,)*{1,-1})
此公式利用B1天数计算
或
=SUM(ROUNDUP(DATE(YEAR(A1),MONTH(A1)+{1,0},)/7,)*{1,-1})
此公式完全根据A1计算
D1得出几个星期六：
=SUM(INT((TEXT(A1,"e-m")-1+B1*{1,0})/7)*{1,-1})
或
=SUM(INT(DATE(YEAR(A1),MONTH(A1)+{1,0},)/7)*{1,-1})