同一MS Access数据表中两个日期的差值计算方法咨询

• 确认字段与控件类型
  先检查表中开始时间、完成时间字段为日期/时间类型，表单对应控件绑定到这两个字段且为日期选择控件，避免文本类型引发计算逻辑错误。

• 表单事件绑定VBA实现实时计算写入
  在表单的完成时间控件更新后事件中添加代码，直接计算差值并写入绑定的工时字段：

  Private Sub 完成时间_AfterUpdate()
      Dim startDt As Date, endDt As Date
      Dim workHrs As Double
      
      If IsNull(Me.开始时间) Or IsNull(Me.完成时间) Then
          Me.工时 = Null
          Exit Sub
      End If
      
      startDt = Me.开始时间
      endDt = Me.完成时间
      ' 按分钟计算后转小时，保证精度
      workHrs = DateDiff("n", startDt, endDt) / 60
      Me.工时 = workHrs
  End Sub
  

• 排查原有方法失效的常见原因

  • 数据表计算字段：确保表达式为DateDiff("n", [开始时间], [完成时间])/60，字段类型设为数字（双精度），而非文本类型
  • DateDiff更新查询：需用更新查询而非选择查询，SQL语句示例：

    UPDATE 工时数据表 SET 工时 = DateDiff("n", [开始时间], [完成时间])/60
    WHERE 开始时间 IS NOT NULL AND 完成时间 IS NOT NULL;
    

  • 表单计算控件：若仅做显示用的计算控件未绑定数据表字段，自然不会写入数据，需绑定到表中工时字段后再赋值

• 关键注意点

  • 跨天任务：DateDiff会自动计算跨天的总时长，无需额外处理
  • 空值校验：必须判断开始/完成时间是否为空，避免触发计算错误
  • 权限验证：确保操作用户拥有数据表的更新权限，否则写入会失败

内容的提问来源于stack exchange，提问作者Swift