如何在Tcl中获得UTC时间的差异？

Question

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

中实现这一目标

Answer 1

1043549199不是一个数字时间戳的时间，它是从Unix时代开始（1970年1月初以UTC开始）的秒数。获得差异是微不足道的，因为它们只是数字：从另一个中减去一个。

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