如何在 Tcl 中获取 UTC 时间的差异?

How to get the difference of UTC time in Tcl?

我的开始时间是 1043549199,结束时间是 1043550749,我需要知道经过的时间。我相信这些数字的格式是 UTC 时间戳。我如何在 Tcl

中实现这一点

1043549199 与其说是一个时间,不如说是一个数字时间戳,它是从 Unix 纪元(UTC 时间,1970 年 1 月开始)开始的秒数。得到差异是微不足道的,因为它们 只是 个数字:从另一个中减去一个。

set t1 1043549199
set t2 1043550749
set diff [expr {$t2 - $t1}]
puts "The interval from '[clock format $t1]' to '[clock format $t2]' lasted $diff seconds"
The interval from 'Sun Jan 26 02:46:39 GMT 2003' to 'Sun Jan 26 03:12:29 GMT 2003' lasted 1550 seconds