关于时间段的窗体按钮单击代码的问题

BIGDOG　发表于：2009-11-01 19:02:29 　

下面是一个时间段的代码，我的目的是这样的：如果当前时间大于25号，那么时间段为这个月的26到下个月的25，如果当前时间小于25号，那么时间段为上个月的26到这个月的25，比如：今天是1号，时间段应该是20091026-20091125，可是我显示的时间却是20091126-20091226，但是我昨天用的时候还是正确的，这是怎么回事，是不是代码哪块出问题了？

If Date > 25 Then
Me.完成时间开始 = DateSerial(Year(Date), Month(Date), 26)
Me.完成时间截止 = DateSerial(Year(Date), Month(Date) + 1, 25)
Else
Me.完成时间开始 = DateSerial(Year(Date), Month(Date) - 1, 26)
Me.完成时间截止 = DateSerial(Year(Date), Month(Date), 25)
End If

Top

BIGDOG 发表于：2009-11-01 19:04:05

刚才说错了,显示的错误时间是20091126-20091225

Top

BIGDOG 发表于：2009-11-01 21:59:07

解决了,将date改为Day(Date)

If Day(Date) > 25 Then
Me.完成时间开始 = DateSerial(Year(Date), Month(Date), 26)
Me.完成时间截止 = DateSerial(Year(Date), Month(Date) + 1, 25)
Else
Me.完成时间开始 = DateSerial(Year(Date), Month(Date) - 1, 26)
Me.完成时间截止 = DateSerial(Year(Date), Month(Date), 25)
End If

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

关于时间段的窗体按钮单击代码的问题