请教各位！这个间隔天数怎么计算？

sxgaobo

一表中有一日期字段，按顺序储存着若干日期数据，如何计算出后一日期与前一日期间隔的天数并写入间隔天数字段中？

小小白菜

用rs.movenext与前一个相减就可以实现，只是第一个不能与标题相减，所以要加on error来跳过错误
    On Error Resume Next
    Dim sql As String
    Dim rs As ADODB.Recordset, i As Integer, t1 As Date
    sql = "select * from 间隔天数表"
    Set rs = New ADODB.Recordset
    rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        t1 = rs("时间")
        rs.MoveNext
        rs("天数") = Abs(Nz(DateDiff("d", rs("时间"), t1), 0))
    Next
    rs.Close
    Set rs = Nothing
    DoCmd.OpenTable "间隔天数表", acViewNormal

sxgaobo

谢了！！！

scwcha

不怕你不会，就怕你学不会。

roych

如果不考虑双休之类，直接ADO循环减去就好了。
如果需要考虑到休息日，补休，调班等等，请参考以下链接：
http://www.office-cn.net/thread-120879-1-1.html