[已解决]判断年末最后一天

759857387

这句错误在哪里？求修改
If Day(Date) = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) Then

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-31 15:57

判断是否12月31日？

1. If Month(Date) = 12 And Day(Date) = 31 Then
   

复制代码

跳转到最佳答案楼层

dsmch

判断是否12月31日？

1. If Month(Date) = 12 And Day(Date) = 31 Then
   

复制代码

26759761@qq.com

只用   天数去判断是否等于年末最后一天肯定不对吧

If Date = DateSerial(Year(Date) + 1, 1, 0) Then

hsl215

测试没有发现问题哦！看错了是年未，附件是月未的。
TEST.rar (7.29 KB, 下载次数: 2)

2015-3-31 16:02 上传

点击文件名下载附件

雪舞子

阳历年末永远是12月31日

1. If Date = DateSerial(Year(Date), 12, 31) Then

复制代码

爱疯

Sub test()
    Dim x, y

    '返回今天的日期
    x = Day(Date)

    '返回下一个月第1天的前1天的日期，即本月最后1天的日期
    y = Day(DateSerial(Year(Date), Month(Date) + 1, 0))

    '原句是判断，今天是否为本月最后1天
    MsgBox x = y

End Sub

爱疯

我以为是要解释哦。
要达到如题需求，可以写成
If Date = DateSerial(Year(Date), 13, 0) Then MsgBox "今天是今年最后1天"

759857387

爱疯 发表于 2015-3-31 16:14
我以为是要解释哦。
要达到如题需求，可以写成
If Date = DateSerial(Year(Date), 13, 0) Then MsgBox "今 ...

我的办法确实很笨，谢谢

爱疯

光想着如按你的方法改 ......... 2楼方法直接些