VBA中如何将特定格式字符串转换为Excel时间并计算时间差

解决方法 #

VBA的Date类型本质是双精度浮点数，可精确存储包含微秒的时间信息。你可以通过以下步骤实现需求：

1. 将ISO格式字符串转换为日期时间：使用CDate函数直接解析字符串，为兼容不同区域设置，建议先把字符串中的T替换为空格。
2. 计算秒级时间差：两个日期相减得到的是天数差值，乘以86400（一天的总秒数）即可转换为带小数的秒数。

示例代码 #

Sub CalcMicrosecondDiff()
    Dim var1 As String, var2 As String
    Dim dtStart As Date, dtEnd As Date
    Dim diffSeconds As Double
    
    var1 = "2022-08-12T10:32:48.363402"
    var2 = "2022-08-12T10:32:49.759310"
    
    ' 转换为日期时间类型（替换T为空格提升兼容性）
    dtStart = CDate(Replace(var1, "T", " "))
    dtEnd = CDate(Replace(var2, "T", " "))
    
    ' 计算精确到微秒的秒差
    diffSeconds = (dtEnd - dtStart) * 86400
    
    ' 输出结果（在立即窗口查看）
    Debug.Print diffSeconds ' 输出约1.395908
End Sub

说明 #

• CDate支持解析包含小数秒的ISO 8601格式字符串，无需拆分日期和时间部分单独处理。
• VBA的Date类型小数部分对应一天的时间比例，因此通过乘以86400可以精准转换为秒级差值，保留微秒精度。

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