MS Access中时间格式时长字段跨表求和的实现方法咨询

嗨，Mike！我完全懂你现在的困扰——用Access统计骑行装备的累计使用时长，结果总是被卡在24小时循环里，明明实际总时长远超一天，却只显示当天的时间部分，确实挺闹心的。

先给你解释下为什么直接求和不行：Access里的Date/Time类型本质是把时间当作“某一天的某个时刻”来存储的，它的数值本质是双精度浮点数，1代表完整的一天（24小时）。所以当你直接求和时长时，超过24小时的部分会自动进位成“天数”，而默认的时间格式只会显示当天的时间，导致结果看起来不对。

好在我们可以绕开这个限制，核心思路是把时间格式的时长转换成纯数值（比如总秒数）来求和，之后再把总数值转换成带累计小时数的时分秒格式，具体步骤如下：

方法一：用查询表达式直接实现 #

1. 创建关联查询：打开Access的查询设计视图，添加你的三个表（活动表、活动-装备关联表、装备表），确保它们的关联关系（Activity ID、Gear ID）已经正确建立。
2. 转换时长为总秒数：在查询的“字段”行添加一个计算字段，把Date/Time类型的时长转换成总秒数（因为1天=86400秒），同时用Nz函数处理可能的空值：

   TotalSeconds: Nz([你的活动表].[Duration], 0) * 86400
   

3. 按装备分组求和：切换到“总计”视图，把装备名称字段的总计设为Group By，把TotalSeconds的总计设为Sum，这样就能得到每个装备的累计总秒数。
4. 格式化总时长：再添加一个计算字段，把总秒数拆分成小时、分钟、秒并拼接成你需要的格式：

   累计使用时长: Str(Int(Sum(Nz([你的活动表].[Duration],0)*86400)/3600)) & ":" & Format(Int((Sum(Nz([你的活动表].[Duration],0)*86400) Mod 3600)/60),"00") & ":" & Format((Sum(Nz([你的活动表].[Duration],0)*86400) Mod 3600) Mod 60,"00")
   

如果你习惯用SQL视图，直接运行下面的代码（记得替换成你的实际表名和字段名）：

SELECT 
    tblGear.GearName,
    Str(Int(Sum(Nz(tblActivities.Duration,0)*86400)/3600)) & ":" & 
    Format(Int((Sum(Nz(tblActivities.Duration,0)*86400) Mod 3600)/60),"00") & ":" & 
    Format((Sum(Nz(tblActivities.Duration,0)*86400) Mod 3600) Mod 60,"00") AS 累计使用时长
FROM 
    tblGear 
INNER JOIN 
    (tblActivities INNER JOIN tblActivityGear ON tblActivities.ActivityID = tblActivityGear.ActivityID) 
ON 
    tblGear.GearID = tblActivityGear.GearID
GROUP BY 
    tblGear.GearName;

方法二：用自定义VBA函数简化格式（更优雅） #

如果你觉得上面的表达式太长，也可以写一个简单的VBA函数来处理时长格式化：

1. 按下Alt+F11打开VBA编辑器，插入一个新模块，粘贴下面的代码：

   Function FormatElapsedTime(totalSeconds As Double) As String
       Dim hours As Long
       Dim minutes As Long
       Dim seconds As Long
       
       hours = Int(totalSeconds / 3600)
       totalSeconds = totalSeconds Mod 3600
       minutes = Int(totalSeconds / 60)
       seconds = totalSeconds Mod 60
       
       FormatElapsedTime = hours & ":" & Format(minutes, "00") & ":" & Format(seconds, "00")
   End Function
   

2. 回到查询设计，直接调用这个函数来格式化总时长：

   累计使用时长: FormatElapsedTime(Sum(Nz([你的活动表].[Duration],0)*86400))
   

这样就能得到类似Gear XX : 135h:45m:59s的正确累计时长啦！

备注：内容来源于stack exchange，提问作者Mike