[已解决]这句代码有错误吗？

759857387

我用下面代码做每月最后一天判断有错误吗？
If DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) Then

最佳答案

月排行榜 / 总排行榜

xdragon

2014-6-30 17:17

1. Sub test_1()
   
2. Dim DateStr As Byte
   
3.   DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   
4.   if datestr=day(date) then
   
5.     MsgBox "本月最后一天"
   
6.   End If
   
7. End Sub

复制代码

跳转到最佳答案楼层

xdragon

你这个代码表示的是当月的最后一天
计算原理就是显示下个月的0号的日期

759857387

xdragon 发表于 2014-6-30 16:23
你这个代码表示的是当月的最后一天
计算原理就是显示下个月的0号的日期

奇怪的是以前用没有问题，今天用没反应，将这句前面加点后才可以用，不知道哪里有问题了，烦请老师看看。

759857387

xdragon 发表于 2014-6-30 16:23
你这个代码表示的是当月的最后一天
计算原理就是显示下个月的0号的日期

烦劳老师看看，宏不运行。
Book15.rar (32.38 KB, 下载次数: 3)

2014-6-30 16:50 上传

点击文件名下载附件

xdragon

Sub test_1()
Dim DateStr As Byte
If DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) Then  '当datestr是本月最后一天的时候再执行msgbox，很明显你这里datestr没有赋值（也就是默认值0），而本月的最后一天不可能是0。所以永远是不能执行IF语句中True的结果的。
MsgBox "本月最后一天"
End If
End Sub

如果你想直接让提示最后一天，那直接写
Sub test_1()
MsgBox "本月最后一天" & Day(DateSerial(Year(Date), Month(Date) + 1, 0))
End Sub

759857387

xdragon 发表于 2014-6-30 17:00
Sub test_1()
Dim DateStr As Byte
If DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) Then ...

希望：判断是否是月末最后一天，如果是就执行。
避免不是月末最后一天而执行了程序。
如何修改请指教。

xdragon

1. Sub test_1()
   
2. Dim DateStr As Byte
   
3.   DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   
4.   if datestr=day(date) then
   
5.     MsgBox "本月最后一天"
   
6.   End If
   
7. End Sub

复制代码

759857387

xdragon 发表于 2014-6-30 17:17

学会了，谢谢