VBA中将13位时间戳转换为日期时出现overflow错误如何解决

错误原因 #

• 变量类型选择错误：VBA 32位环境下Long类型的取值上限仅为2147483647，13位毫秒级时间戳的数值远超该上限，转换时直接触发溢出报错。
• 缺少Unix时间戳到VBA日期序列的转换逻辑：VBA的日期序列值以1899-12-30为基准，而Unix时间戳以1970-01-01为基准，二者存在固定偏移，直接对时间戳格式化无法得到正确日期。

解决方案 #

修正后的代码如下：

Sub getDate()
    Dim tDate As Double, timestamp As String
    timestamp = "1624373961042"
    
    ' 先转成秒级Unix时间戳，再加上1970-01-01的基准日期偏移
    tDate = CDbl(timestamp) / 1000 / 86400 + DateSerial(1970, 1, 1)
    MsgBox Format(tDate, "yyyy-mm-dd")
End Sub

代码说明 #

• 用Double类型存储中间计算结果，避免整数溢出
• 除以86400是把秒数转换成天数（1天=86400秒），加上DateSerial(1970,1,1)得到VBA可识别的日期序列值
• 格式化字符串按需求调整为yyyy-mm-dd即可输出2021-06-22格式的结果

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