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

向東

opiona 发表于 2023-1-26 16:36
DX = "2023-3-11"
   MAXDATE= DateAdd("D", 0 - Day(DX), DX)

你这个返回的是上月的最后一天

向東

cui26896 发表于 2023-3-1 09:50
d = CDate(DateAdd("m", 1, Date) - 1)

换一天#2023-03-02#试试，公式是错的。

gbgbxgb

Sub the_Write_myDate()
    Dim my_Date As Date
    '
    my_Date = Date
    my_Date = DateSerial(Year(my_Date), Month(my_Date) + 1, 0)
    ActiveSheet.Cells(2, 1) = my_Date
End Sub

向東

gbgbxgb 发表于 2023-3-1 16:13
Sub the_Write_myDate()
    Dim my_Date As Date
    '

DateSerial(Year(my_Date), Month(my_Date) + 1, 0)
你这种写法是最直接最稳妥的。

本月：从  DateSerial(Year(Date), Month(Date), 1)  到  DateSerial(Year(Date), Month(Date) + 1, 0)
上月：从  DateSerial(Year(Date), Month(Date) - 1, 1)  到  DateSerial(Year(Date), Month(Date), 0)
下月：从  DateSerial(Year(Date), Month(Date) + 1, 1)  到  DateSerial(Year(Date), Month(Date) + 2, 0)

cui26896

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

向東

cui26896 发表于 2023-3-1 20:36
d = CDate(DateAdd("m", 1, CDate(Date - Day(Date) + 1)) - 1)

解析：
Date - Day(Date) 返回上个月最后一天，
CDate(Date - Day(Date) + 1)  返回本月1号，
DateAdd("m", 1, CDate(Date - Day(Date) + 1)) 返回下月1号
CDate(DateAdd("m", 1, CDate(Date - Day(Date) + 1)) - 1)返回本月最后一天

准提部林

向東 发表于 2023-3-1 15:14
这个不对，比如日期是#2023-03-01#，返回 2023-03-28，
函数DateAdd()处理月末时，会自动去除多余的天数 ...

忽略月末問題, 改用下月初一再-1
Qday = DateAdd("m", 1, date - Day(date) + 1) - 1

向東

准提部林 发表于 2023-3-2 12:36
忽略月末問題, 改用下月初一再-1
Qday = DateAdd("m", 1, date - Day(date) + 1) - 1

这个可以，跟15楼的思路一致。