如何在不转换为Epoch时间的情况下用TCL计算时间差

直接对时间字符串执行减法运算会失败，因为TCL无法直接识别这类字符串为数值类型。你可以通过将时间字符串转换为**总秒数（含毫秒）**的方式，实现无需依赖Epoch时间的时间差计算。

你尝试过的失败代码 #

set t1 "00:00:11.026"
set t2 "00:00:11.028"

# 此方法失败
puts [expr $t2 - $t1] 

你当前使用的Epoch转换可行代码 #

set rawDate "2022-01-01 [lindex [split $t1 "."] 0]"
set t1 [expr [clock scan $rawDate -format {%Y-%m-%d %H:%M:%S} -gmt 1]\
+ ".[lindex [split $t1 "."] 1]"]

set rawDate "2022-01-01 [lindex [split $t2 "."] 0]"
set t2 [expr [clock scan $rawDate -format {%Y-%m-%d %H:%M:%S} -gmt 1]\
+ ".[lindex [split $t2 "."] 1]"]

puts [expr $t1 - $t2]

无需转换Epoch的实现方法 #

编写一个自定义过程，将HH:MM:SS.ms格式的时间字符串转换为总秒数（浮点数），之后直接对数值做减法即可：

proc time_to_seconds {time_str} {
    # 拆分秒与毫秒部分
    lassign [split $time_str "."] hms_part ms_part
    # 拆分时、分、秒
    lassign [split $hms_part ":"] hours minutes seconds
    # 计算总秒数：时转秒 + 分转秒 + 秒 + 毫秒转秒
    return [expr {$hours * 3600 + $minutes * 60 + $seconds + ($ms_part ? $ms_part / 1000.0 : 0)}]
}

# 测试示例
set t1 "00:00:11.026"
set t2 "00:00:11.028"

set t1_total_sec [time_to_seconds $t1]
set t2_total_sec [time_to_seconds $t2]

# 输出时间差（秒）
puts [expr {$t2_total_sec - $t1_total_sec}] ;# 结果为 0.002

这个方法的优势在于：

• 不需要引入固定日期（如2022-01-01）作为辅助转换的载体
• 支持有无毫秒的时间格式（如12:34:56或12:34:56.789都能处理）
• 计算逻辑直接，性能更高效

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