Tcl脚本clock命令处理时间和日期

Tcl没有内置的日期时间类型，但可以使用一些扩展包，如clock命令，来进行日期和时间的操作。

1. clock format: 将时间戳转换为可读的日期时间字符串
clock format [clock seconds] -format %Y_%m_%d_%I:%M_%p

2. clock scan: 将日期时间字符串转换为时间戳
#将日期时间字符串转换为时间戳
set time1 [clock scan "2024-07-24 12:00:00"]
set time2 [clock scan "2024-07-25 12:00:00"]
# 比较两个时间戳
if {$time1 < $time2} {
    puts "第一个时间早于第二个时间"
} elseif {$time1 > $time2} {
    puts "第一个时间晚于第二个时间"
} else {
    puts "两个时间相同"
}

# 直接比较两个日期时间字符串
set result [clock compare "2024-07-24 12:00:00" "2024-07-25 12:00:00"]

# 根据比较结果输出
if {$result < 0} {
    puts "第一个时间早于第二个时间"
} elseif {$result > 0} {
    puts "第一个时间晚于第二个时间"
} else {
    puts "两个时间相同"
}