@echo off&setlocal enabledelayedexpansion

rem 计算删除日期
:: 文件的格式为yyyy-mm-dd.*
:: 以下 dz=备份文件的路径
::      ds=为预定要保留的天数  （可修改,但不要大于28）
set dz=E:\bak
set ds=2
::取当前系统日期的 年、月、日
set dy=%date:~,4%
set dm=%date:~5,2%
::处理月份带0的，比如08,09，去掉前面的0，不然
::会被认为是8进制，导致错误。
::echo 去0前的月份值=%dm%
:again
if "%dm:~0,1%"=="0" (
    set dm=%dm:~1%
    goto again
)
::echo 去0后的月份值=%dm%
set dd=%date:~8,2%
::处理日带0的，比如08,09，去掉前面的0，不然
::会被认为是8进制，导致错误。
::echo 去0前的day值=%dd%
:againc
if "%dd:~0,1%"=="0" (
    set dd=%dd:~1%
    goto againc
)
::echo 去0后的day值=%dd%
::echo 当前是  %dy%-%dm%-%dd%日

::计算应该删的文件的最新日期
set /a "feb=^!(%dy%%%4)+28"
if "%dy:~2,2%" equ "00" set/a "feb=!feb!-1+^!(%dy:~,2%%%4)"

set /a "dd-=%ds%"
if %dd% leq 0 (
   set n=0
   set/a dm-=1
   if !dm! equ 0 set/a "dy=%dy%-1,dm=0+12" 
   for %%a in (31 %feb% 31 30 31 30 31 31 30 31 30 31) do (
       set/a n=!n!+1
       if !n! equ %dm% set/a "dd=!dd!+%%a"
    )
 )

set delDate=%dy%-%dm%-%dd%

至此delDate为计算出来的日期值。

本文转自 韬光星夜 51CTO博客，原文链接：http://blog.51cto.com/xfqxj/739878，如需转载请自行联系原作者