@echo off
rem 请根据自己的实际情况修改WinRAR的路径
set rarPath=C:\Program Files\WinRAR
rem 假设系统日期格式是yyyy-mm-dd
set ThisYear=%date:~0,4%
set ThisMonth=%date:~5,2%
set ThisDay=%date:~8,2%
call :DateToDays %ThisYear% %ThisMonth% %ThisDay% ThisDays
set /a DstDays=%ThisDays%-1%ThisDay%+100
call :DaysToDate %DstDays% DstYear DstMonth DstDay
for /l %%a in (1,1,5) do (
  "%rarPath%\rar.exe" a "F:\bak\AAA%%a[%DstMonth%].rar" "F:\AAA%%a\%DstYear%\%DstMonth%"
  ping -n 1800 127.1 >nul
)
goto :eof
:DateToDays %yy% %mm% %dd% days
setlocal ENABLEEXTENSIONS
set yy=%1&set mm=%2&set dd=%3
if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
endlocal&set %4=%j%&goto :EOF
:DaysToDate %days% yy mm dd
setlocal ENABLEEXTENSIONS
set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF
复制代码