在VBA加入下面的参数就可以:
d = Day(Now)
m = Month(Now)
y = Year(Now)
MaxDay = Day(DateSerial(y, m + 1, 0))
假设两个日期数据分别在 A1 和 B1
则输出公式:
=MID("a01,a02,a03,a04,a05,a06,a07,a08,a09,a10,a11,a12,001,002,003,004,005,006,007,008,009,010,011,012,b01,b02,b03,b04,b05,b06,b07,b08,b09,b10,b11,b12",MONTH(A1)4-3+(YEAR(B1)=YEAR(A1))48,DATEDIF(EOMONTH(A1,-1)+1,EOMONTH(B1,0)+1,"M")4)
如果希望得到提问中的字符格式,则:
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(MID("a01,a02,a03,a04,a05,a06,a07,a08,a09,a10,a11,a12,001,002,003,004,005,006,007,008,009,010,011,012,b01,b02,b03,b04,b05,b06,b07,b08,b09,b10,b11,b12",MONTH(A1)4-3+(YEAR(B1)=YEAR(A1))48,DATEDIF(EOMONTH(A1,-1)+1,EOMONTH(B1,0)+1,"M")4),",0",","),",0",","),"a0","a"),"b0","b")
以上就是关于求一段excel vba 取得当天的年月日,并取得当前月的天数全部的内容,包括:求一段excel vba 取得当天的年月日,并取得当前月的天数、如何在excel里用vba或函数实现如问题补充所述的两个日期的月份的提取、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)