批处理脚本日期处理求助：提取日期并判断间隔天数

原脚本问题分析 #

第一段写入日期脚本的问题 #

• 变量引用错误：set /a day2=day+5中变量day未加百分号，应改为set /a day2=%day%+5
• 直接累加天数未处理跨月/跨年场景，比如月底加天数会生成无效日期
• Windows XP 默认未预装 WMIC，若未手动安装则wmic os get localdatetime命令无法执行

第二段读取日期脚本的问题 #

• for /f参数错误：文本文件仅存一行日期内容，tokens=2 delims==属于无效配置，应直接读取整行
• 变量名混乱：set year=2%datetime2:~0,4%多写了前缀2，且后续引用的%year2%从未定义
• 同样存在日期计算未处理跨月/跨年的问题

需求实现方案 #

1. 从%date%提取日期写入文本文件（兼容XP） #

方案1：使用外部日期格式化exe（推荐）

假设你有getdate.exe工具，可直接输出YYYY/MM/DD格式的日期，脚本如下：

@echo off
rem 调用外部工具获取标准格式日期
for /f "delims=" %%G in ('getdate.exe') do set last_date=%%G
rem 将日期写入指定文件
echo %last_date%> C:\WLT\Init\lastoptim.txt

方案2：直接处理%date%（兼容不同区域设置）

无需外部工具时，先判断%date%的格式差异，再提取年、月、日：

@echo off
setlocal enabledelayedexpansion
set "date_str=%date%"
rem 剥离日期字符串中的星期部分
for /f "tokens=2-4 delims=/ " %%G in ("%date_str%") do (
    set "part1=%%G"
    set "part2=%%H"
    set "part3=%%I"
)
rem 判断年份位置（长度为4的字段为年份）
if "!part3:~0,1!" gtr "9" (
    rem 格式为 MM/DD/YYYY
    set "year=!part3!"
    set "month=!part1!"
    set "day=!part2!"
) else (
    rem 格式为 DD/MM/YYYY
    set "year=!part3!"
    set "month=!part2!"
    set "day=!part1!"
)
rem 组合为标准格式并写入文件
set "last_date=!year!/!month!/!day!"
echo !last_date!> C:\WLT\Init\lastoptim.txt
endlocal

2. 读取日期并判断间隔X天执行命令（兼容XP） #

方案1：使用外部日期差计算工具（推荐）

假设你有datediff.exe工具，可计算两个日期的天数差，设定间隔天数为5天的脚本如下：

@echo off
setlocal enabledelayedexpansion
rem 设置需要判断的间隔天数
set "interval_days=5"
rem 读取记录的历史日期
set "recorded_date="
for /f "delims=" %%G in (C:\WLT\Init\lastoptim.txt) do set "recorded_date=%%G"
rem 获取当前标准格式日期
for /f "delims=" %%G in ('getdate.exe') do set "current_date=%%G"
rem 计算两个日期的天数差
for /f "delims=" %%G in ('datediff.exe !recorded_date! !current_date!') do set "days_diff=%%G"
rem 判断是否达到间隔天数并执行命令
if !days_diff! geq !interval_days! (
    echo 已间隔%interval_days%天，执行指定命令...
    rem 替换为你需要执行的实际命令
    echo 示例操作：执行系统优化脚本
) else (
    echo 未达到间隔天数，当前已间隔!days_diff!天
)
endlocal

方案2：纯批处理计算日期差（无外部工具）

批处理原生计算日期差需处理闰年、每月天数等逻辑，以下为简化实现（仅支持1970年后日期）：

@echo off
setlocal enabledelayedexpansion
rem 读取历史日期
for /f "tokens=1-3 delims=/" %%G in (C:\WLT\Init\lastoptim.txt) do (
    set "r_year=%%G"
    set "r_month=%%H"
    set "r_day=%%I"
)
rem 获取当前日期（同方案2的日期提取逻辑）
set "date_str=%date%"
for /f "tokens=2-4 delims=/ " %%G in ("%date_str%") do (
    set "part1=%%G"
    set "part2=%%H"
    set "part3=%%I"
)
if "!part3:~0,1!" gtr "9" (
    set "c_year=!part3!"
    set "c_month=!part1!"
    set "c_day=!part2!"
) else (
    set "c_year=!part3!"
    set "c_month=!part2!"
    set "c_day=!part1!"
)
rem 定义各月份天数
set "month_days=31 28 31 30 31 30 31 31 30 31 30 31"
rem 计算历史日期和当前日期的总天数
call :calc_total_days !r_year! !r_month! !r_day! r_total
call :calc_total_days !c_year! !c_month! !c_day! c_total
set /a days_diff=c_total - r_total
rem 判断间隔天数并执行命令
set "interval_days=5"
if !days_diff! geq !interval_days! (
    echo 已间隔%interval_days%天，执行指定命令
    rem 替换为实际命令
) else (
    echo 仅间隔!days_diff!天，不执行操作
)
endlocal
exit /b

:calc_total_days
set "year=%1"
set "month=%2"
set "day=%3"
set "total=0"
rem 计算年份贡献的天数
for /l %%y in (1970,1,!year!-1) do (
    set /a leap=0
    if %%y %% 4 equ 0 set /a leap=1
    if %%y %% 100 equ 0 set /a leap=0
    if %%y %% 400 equ 0 set /a leap=1
    if !leap! equ 1 set /a total+=366 else set /a total+=365
)
rem 计算月份贡献的天数
set "count=1"
for %%m in (%month_days%) do (
    if !count! lss !month! (
        set /a total+=%%m
        rem 闰年2月额外加1天
        if !count! equ 2 (
            set /a leap=0
            if !year! %% 4 equ 0 set /a leap=1
            if !year! %% 100 equ 0 set /a leap=0
            if !year! %% 400 equ 0 set /a leap=1
            if !leap! equ 1 set /a total+=1
        )
    )
    set /a count+=1
)
rem 加上当月天数
set /a total+=!day!
set "%4=!total!"
exit /b

内容的提问来源于stack exchange，提问作者Furbland Channel 2