excel vba 里如何计算得到本月或者某个月里有几天，最好赋值成一个变量

Question

excel vba 里如何计算得到本月或者某个月里有几天，最好赋值成一个变量
在excel里用函数可以很容易算出来=DAY(DATE(YEAR(TODAY()),(MONTH(TODAY())+1),0))，但是在vba里 dateiff 我又用不来，最好算出来的这个日期弄成个变量。我要用在建新工作表里，一天建一个表，sheets.count的值不能大于这个月有的天数。

Answer 1

软件版本：Office2007

方法如下：

1.求A列中各月份里有几天：

2.Alt+F11，输入代码如下：

代码通过调用Excel中的Eomonth函数，来实现对A列单元格中的月份求有几天，然后复制给B列对应单元格中

3.执行代码即可：

Answer 2

可以直接用工作表函数：

EoMonth（start_date，start_date 之前或之后的月数）

实例代码如下：

'本月天数
Days_of_Specific_Month = Day(Application.WorksheetFunction.EoMonth(now(),0))

'指定月天数
Dim Specific_Month as Date
Specific_Month = #2016-1-1#
Days_of_Specific_Month = Day(Application.WorksheetFunction.EoMonth(Specific_Month,0)

 

补充：

WorksheetFunction.EoMonth
方法    

返回 start_date
的指定月数之前或之后的月份的最后一天的序列号。用函数 EOMONTH 可计算正好在特定月份中最后一天内的到期日或发行日。

Answer 3

公式见下，赋与的变量放在等号前便可以。
=DAY(DATE(YEAR(A5),MONTH(A5)+1,1)-1)
例设A5内存放了要检查的日期。

追问

你好，在sheet单元格里赋值这个我也想到了要不然我也不会列出那个函数公式，我想要的效果是纯vba 在vba里完成日期的生成，不知道这个能不能实现。