7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2003-03-16
- 打赏
- 举报
楼上高见
MsgBox Day(DateSerial(Year(Date), Month(Date), 0))
MsgBox Day(DateSerial(Year(Date), Month(Date), 0))
bigbigfans 2003-03-16
- 打赏
- 举报
2月的最后一天
DateSerial(2003,3,0)
DateSerial(2003,3,0)
CityhunterID 2003-03-16
- 打赏
- 举报
不错意思,写错了.
MsgBox Format(Day(DateAdd("d", -1, CDate(strDate))), "long date")
这个应该为:
MsgBox Cstr(Day(DateAdd("d", -1, CDate(strDate))))
MsgBox Format(Day(DateAdd("d", -1, CDate(strDate))), "long date")
这个应该为:
MsgBox Cstr(Day(DateAdd("d", -1, CDate(strDate))))
xsp 2003-03-16
- 打赏
- 举报
Text1.Text = Date - Day(Date)
CityhunterID 2003-03-16
- 打赏
- 举报
Dim strDate as String
strDate = Year(Date) & "-" & Month(Date) & "-01"
MsgBox Format(Day(DateAdd("d", -1, CDate(strDate))), "long date")
strDate = Year(Date) & "-" & Month(Date) & "-01"
MsgBox Format(Day(DateAdd("d", -1, CDate(strDate))), "long date")
