如何在TCL中使用快捷命令获取上一个月？

TCL 核心库没有内置专门获取上一个月的独立快捷命令，你可以借助系统自带的 clock 命令快速实现需求，不同场景的实现方案如下：

最简实现（TCL 8.5及以上版本推荐） #

直接调用 clock scan 的相对时间语法即可自动处理跨年、月天数差异问题，无需手动编写判断逻辑：

• 获取上一个月的「年-月」格式字符串：
  clock format [clock scan "last month"] -format "%Y-%m"
  示例输出：当前时间为2024年1月时，返回值为 2023-12；当前时间为2024年5月时，返回值为 2024-04

完整获取上一个月的时间范围 #

如果需要拿到上一个月的起止时间戳用于脚本范围判断，可以用以下写法：

# 上一个月第一天 00:00:00 时间戳
set last_month_start [clock scan "[clock format [clock scan "last month"] -format "%Y-%m"]-01 00:00:00"]
# 上一个月最后一天 23:59:59 时间戳
set last_month_end [clock scan "1 month $last_month_start -1 second"]

如果需要格式化输出起止时间，可以搭配 clock format 自定义输出格式，比如要输出 YYYY-mm-dd HH:MM:SS 格式：
clock format $last_month_start -format "%Y-%m-%d %H:%M:%S"

老版本TCL兼容写法（TCL 8.5以下版本） #

如果你的运行环境TCL版本较低，不支持clock scan的相对时间语法，可以手动实现年月计算：

set curr_year [clock format [clock seconds] -format "%Y"]
set curr_month [clock format [clock seconds] -format "%m"]

if {$curr_month == 1} {
    set last_month_year [expr {$curr_year - 1}]
    set last_month 12
} else {
    set last_month_year $curr_year
    set last_month [expr {$curr_month - 1}]
}

# 格式化输出为 年-月 格式
set last_month_str [format "%d-%02d" $last_month_year $last_month]

内容的提问来源于stack exchange，提问作者Tim Scott