在Access中通过VBA或计算控件计算多记录的平均驻场时长

方法一：使用计算控件（简单高效） #

这种方法依赖表单记录源的查询计算，自动跟随筛选更新：

1. 先修改表单的记录源查询，新增计算字段：

   TimeOnSite: DateDiff("n", [StartTime], [EndTime])
   

   该字段会自动计算每条记录的司机停留分钟数（"n"代表分钟单位）。
2. 在表单页脚添加文本框控件，命名为AvgTimeOnSite：
   • 设置控件来源为 =Avg([TimeOnSite])
   • 设置格式为「数字」（可按需保留1-2位小数）
3. 完成后，当你修改表单筛选条件时，Access会自动重新计算当前记录集的平均值并更新控件显示。

方法二：使用VBA代码（灵活适配复杂场景） #

如果TimeOnSite是表单上的计算控件而非记录源字段，或者需要自定义逻辑（比如忽略空时间记录），可以用VBA实现：

1. 在表单页脚添加文本框控件，命名为AvgTimeOnSite，清空其控件来源。
2. 打开表单的VBA编辑器，添加以下代码：

   ' 筛选条件应用后触发更新
   Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
       UpdateAvgDuration
   End Sub
   
   ' 记录集切换时触发更新
   Private Sub Form_Current()
       UpdateAvgDuration
   End Sub
   
   ' 核心计算函数
   Private Sub UpdateAvgDuration()
       Dim rs As Recordset
       Dim totalMins As Double
       Dim validCount As Integer
       
       Set rs = Me.RecordsetClone
       totalMins = 0
       validCount = 0
       
       ' 遍历所有记录计算有效时长总和
       Do While Not rs.EOF
           ' 跳过StartTime或EndTime为空的记录
           If Not IsNull(rs!StartTime) And Not IsNull(rs!EndTime) Then
               totalMins = totalMins + DateDiff("n", rs!StartTime, rs!EndTime)
               validCount = validCount + 1
           End If
           rs.MoveNext
       Loop
       
       ' 计算并显示平均值
       If validCount > 0 Then
           Me!AvgTimeOnSite = Round(totalMins / validCount, 1) ' 保留1位小数
       Else
           Me!AvgTimeOnSite = "无有效记录"
       End If
       
       Set rs = Nothing
   End Sub
   

3. 保存代码后，修改表单筛选条件或切换记录时，AvgTimeOnSite会自动更新显示平均停留时长。

注意事项 #

• 如果StartTime晚于EndTime（比如跨天记录），DateDiff会返回负数，可加Abs()函数取绝对值：Abs(DateDiff("n", [StartTime], [EndTime]))
• 确保表单的记录集类型为「动态集」或「快照」，保证记录集可遍历。

内容的提问来源于stack exchange，提问作者Dianna Marie Vasher