求助：想做个月份查询，查询的月份只需追溯前三个即可

YY2008　发表于：2008-03-21 08:23:37 　

复制

想做个月份查询，查询的月份只需追溯前三个即可．该如何编写代码：

Top

Victor Duane 发表于：2008-03-21 10:02:29

用DATESERIAL,DATEADD,之类的函数即可,在月份上减去你要的月数

Top

YY2008 发表于：2008-03-21 10:50:34

我写了个,请大家帮助我改改

Private Sub Form_Open(Cancel As Integer)
Dim 当月, 上一月, 上二月, 上三月 As Integer
    当月 = Month(Date)
    上一月 = 当月 - 1 + Fix((13 - Month(Date)) / 12) * 12
    上二月 = 当月 - 2 + Fix((13 - Month(Date)) / 12) * 12
    上三月 = 当月 - 3 + Fix((13 - Month(Date)) / 12) * 12

    月份.RowSource = Str(上一月) & ";" & Str(上二月) & ";" & Str(上三月)

End Sub

Top

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

Access交流中心

求助：想做个月份查询，查询的月份只需追溯前三个即可