输入月份作为整数,输出该月的最后一天

时间:2015-03-19 17:41:33

标签: excel vba excel-vba date excel-formula

我正在尝试编写一个Excel VBA函数,当仅将月份数作为整数时,以yyyy-mm-dd格式输出一个月中的最后一天。

因此,对于1月份,将输入1,输出将为2014-01-31

我知道如何使用Format(date(),“yyyy-mm-dd”)重新格式化日期,并认为我可以使用DateSerial计算最后一天但不确定如何在DateSerial函数中输入整数月份数字。

最好的方法是什么?

2 个答案:

答案 0 :(得分:2)

尝试:

功能:=TEXT(DATE(2014, A1 + 1, 1)-1,"yyyy-mm-dd")

VBA:DateSerial(Year, Month + 1, 1) - 1

此功能查找下个月的第一天,然后减去一天。

粘贴到除A1以外的任何单元格中,并在A1中输入您的月份进行测试。

答案 1 :(得分:1)

作为一个公式,使用您的格式,假设年份为2014年,您的月份数字为A1:

=EOMONTH(41639,A1)