恳请大神们帮忙提供一个当前电脑最后一天的日期

qiongmei6

我想求得一个代码，就是当我执行的时候，a2自动出现电脑时间哪个月份最后一天的日期。例如电脑的时间是2023年1月26日，但是我执行的时候，a2就会出现2023年1月31日，谢谢大神的帮忙。

gwjkkkkk

[A2] = DateAdd("m", 1, Date) - DatePart("d", DateAdd("m", 1, Date))

lss001

Sub 当月最后一天()
     Dim y As Date
     y = Application.EoMonth(Date, 0)
End Sub

准提部林

Qday = DateAdd("m", 1, Date - Day(Date))

opiona

准提部林 发表于 2023-1-26 15:34
Qday = DateAdd("m", 1, Date - Day(Date))

   DX = "2023-3-11"
   MAXDATE= DateAdd("D", 0 - Day(DX), DX)

cui26896

d = CDate(DateAdd("m", 1, Date) - 1)

ykcbf1100

。。。。。。。。。

向東

gwjkkkkk 发表于 2023-1-26 15:07
[A2] = DateAdd("m", 1, Date) - DatePart("d", DateAdd("m", 1, Date))

也可以把datepart() 函数换成 day():
DateAdd("m", 1, Date) - Day(DateAdd("m", 1, Date))

向東

lss001 发表于 2023-1-26 15:22
Sub 当月最后一天()
     Dim y As Date
     y = Application.EoMonth(Date, 0)

excel 2003 等老版本不支持这个公式

向東

准提部林 发表于 2023-1-26 15:34
Qday = DateAdd("m", 1, Date - Day(Date))

这个不对，比如日期是#2023-03-01#，返回 2023-03-28，
函数DateAdd()处理月末时，会自动去除多余的天数，但不会自动增加天数,
例如：
DateAdd("m", 2, #2022-12-31#) 返回 2023-2-28
DateAdd("m", 1, #2023-02-28#) 返回 2023-03-28