Access中如何计算两个文本框内时间戳的时间间隔

核心依赖函数 #

Access原生提供DateDiff函数专门做时间差计算，语法为：
DateDiff(时间间隔单位, 起始时间, 结束时间)
常用时间间隔单位参数如下：

• "s"：返回差值单位为秒
• "n"：返回差值单位为分钟
• "h"：返回差值单位为小时
• "d"：返回差值单位为天
• "m"：返回差值单位为月
• "yyyy"：返回差值单位为年

无代码快速实现（控件直接绑定） #

如果不需要复杂逻辑，直接在显示结果的文本框控件来源中填写公式即可自动计算：

1. 确认两个输入时间的文本框命名（示例中起始时间文本框名为txtStart，结束时间文本框名为txtEnd，可根据实际控件名替换）
2. 选中结果显示文本框，在控件来源属性中输入：
   =DateDiff("s",Nz([txtStart],0),Nz([txtEnd],0))

公式里的Nz()函数用于处理文本框为空的情况，避免出现报错。如果需要其他单位的差值，把第一个参数"s"换成对应单位的参数即可。

VBA事件触发计算（输入即出结果） #

如果需要输入完时间后自动触发计算，给结束时间文本框添加AfterUpdate（更新后）事件，写入如下代码：

Private Sub txtEnd_AfterUpdate()
    ' 先校验两个输入框内容是否为合法时间格式
    If IsDate(Me.txtStart) And IsDate(Me.txtEnd) Then
        ' 示例为计算小时差，更换第一个参数即可切换单位
        Me.txtResult = DateDiff("h", Me.txtStart, Me.txtEnd)
    Else
        Me.txtResult = "" ' 输入不合法时清空结果
    End If
End Sub

特殊场景：Unix时间戳计算 #

如果文本框中输入的是纯数字的Unix时间戳（10位秒级/13位毫秒级），有两种处理方式：

• 直接做数值减法：10位时间戳直接用结束值减起始值，得到的结果就是相差秒数；13位时间戳相减后除以1000得到秒级差值
• 先转成标准时间格式再计算：
  • 10位秒级转标准时间：CDate([文本框值]/86400 + #1970/1/1#)
  • 13位毫秒级转标准时间：CDate(([文本框值]/1000)/86400 + #1970/1/1#)

相关操作界面参考：
Access时间计算操作界面

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