从 TCL 中的当前时间戳添加 1440 分钟

Question

我在使用此代码的 TCL 中使用 [unixtime]：

proc unixtime {} { return [clock seconds] }

如何从返回的时间中增加 1440 分钟（1 天）？

Answer 1

使用clock add ... 1 days:

% proc unixtime {} { return [clock seconds] }
% set time [unixtime]
1429558336
% clock format $time
Mon Apr 20 14:32:16 CDT 2015
% set time [clock add $time 1 days]
1429644736
% clock format $time
Tue Apr 21 14:32:16 CDT 2015

注意：这会使时间增加 1 天。这并不总是 1440 分钟（24 小时）。如果有与夏令时（23 或 25 小时）相关的更改，它可能会更多或更少。

但如果您真的想增加 1440 分钟，请使用 clock add ... 1440 minutes:

% set time [clock add $time 1440 minutes]
1429731136
% clock format $time
Wed Apr 22 14:32:16 CDT 2015

为了说明差异，在美国我们今年 3 月 8 日进入夏令时：

% set time [clock scan "Mar 7 08:00:00 2015"]
1425736800
% clock format $time
Sat Mar 07 08:00:00 CST 2015
% clock format [clock add $time 1 days]
Sun Mar 08 08:00:00 CDT 2015
% clock format [clock add $time 1440 minutes]
Sun Mar 08 09:00:00 CDT 2015

从 TCL 中的当前时间戳添加 1440 分钟

Add 1440 minutes from current timestamp in TCL

tcl