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分钟

1 个答案: