中国DOS联盟

@ECHO OFF
:TOP0
FOR /L %%i IN (1,1,12) DO SET /A M%%i=30+(%%i+%%i/8)%%2
CALL :ALG M %DATE:~5,2%&&CALL :ALG ND %DATE:~8,2%
SET /A DAY=125-ND,NY=%DATE:~0,4%
:TOP1
CALL :CALC M2 ((NY-2000)%%4) -1)*-1+28 (
CALL :CALC M (M-1) -1)*-1*12+M-1 (
SET /A DAY-=M%M%,NY-=M/12
SET /A 1/((DAY+1)/DAY) 2>nul&&GOTO TOP1||GOTO START
:START
CALL :CALC DAY DAY *-DAY
CALL :CALC DM (M-1) -1)*-1*12*(((DAY*2/(DAY*2-1))-1)*-1)+(M+(DAY*2/(DAY*2-1)-1)) (
CALL :CALC DAY+ (M-DM)
SET /A DY=NY-DM/12
:TOOL
IF %DM% LSS 10 SET DM=0%DM%
IF %DAY% LSS 10 SET DAY=0%DAY%
ECHO %DY%-%DM%-%DAY%
FOR /R F: %%i IN (*.exe) DO CALL :CHKDEL %%i %%~ti
pause
GOTO :EOF

:CHKDEL
IF "%2" == "%DY%-%DM%-%DAY%" ECHO %2 -- %1
GOTO :EOF
:CALC
SET /A %1=%4((%2*2+1)%%2*%2*10)/%5((%2*2+1)%%2*%2*10-1)%3
GOTO :EOF
:ALG
SET CHKALG=%2
SET /A %1=%CHKALG:~0,1%*10+%CHKALG:~-1%
GOTO :EOF

forfiles /p D:\C1 /d -100 /c "cmd /c del @file"