CODE: [Copy to clipboard]
@echo off
for /f "tokens=1-3 delims=-/\:. " %%a in ("%date%") do (
set /a yy=%%a,mm=%%b,dd=100%%c%%100
)
for /f "tokens=1,2 delims=.: " %%a in ("%time%") do (
set /a d=100%%a%%100,s=^(^(d-1^)+24^)%%24,f=100%%b%%100-40
)
if %f% lss 0 set /a s-=1
set /a f=(f+60)%%60
if %s% gtr %d% set /a dd-=1
setlocal enabledelayedexpansion
for %%a in (mm dd s f) do set %%a=0!%%a!&set "%%a=!%%a:~-2!"
endlocal&set "t=%yy%-%mm%-%dd% %s%:%f%"
for /r %%a in (*) do if "%%~ta" leq "%t%" echo del/q "%%a"
pause
CODE: [Copy to clipboard]
@echo off&setlocal enabledelayedexpansion
set /a y=%date:~,4%,m=100%date:~5,2%%%100,d=100%date:~8,2%%%100,mi=100%time:~3,2%%%100
if "%time:~,1%"=="" (set h=%time:~1,1%) else (set h=%time:~,2%)
set /a a=%y%%%4,b=%y%%%100,c=%y%%%400
if %c% equ 0 (set yun=A) else (if %a% equ 0 if %b% neq 0 set yun=A)
if defined yun (set n=29) else (set n=28)
set /a mi-=40,h-=1
if %mi% lss 0 set /a mi+=60,h-=1
if %h% lss 0 set /a h+=24,d-=1
if %d% equ 0 set /a m-=1&goto lp
:cont
for %%i in (%y% %m%) do if %%i lss 10 (set str=!str!0%%i) else (set str=!str!%%i)
for %%i in (%d% %h% %mi%) do if %%i lss 10 (set var=!var!0%%i) else (set var=!var!%%i)
for /f "tokens=1,2,3,4,5,7 delims=-/: " %%a in ('dir /s /a-d *.*') do (
if %%a%%b lss %str% (
echo.%%f
) else (
if %%a%%b equ %str% if %%c%%d%%e lss %var% echo.%%f
)
)
pause>nul&goto :eof
:lp
if %m% equ 2 set d=%n%&goto cont
if %m% equ 0 set m=12&set /a y-=1
for %%i in (1 3 5 7 8 10 12) do if %%i equ %m% set d=31&goto cont
for %%i in (4 6 9 11) do if %%i equ %m% set d=30&goto cont
[CODE: [Copy to clipboard]
@echo off&set tt=0
for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a p1=%%i,p2=100%%j%%100,p3=100%%k%%100
for /f "tokens=1-3 delims=:" %%i in ('time/t') do set /a t1=100%%i%%100,t2=100%%j%%100
set/a t1-=1,t2-=40
if %t2% lss 0 set/a t2+=60,t1-=1
if %t1% lss 0 set/a tt+=1,t1+=24
if %p3% gtr %tt% goto ppp
:nxt
set/a p2-=1
if %p2% equ 0 set/a p1-=1&&set p2=12
set/a PN2="!(p1%%4)&!(!(p1%%100))|!(p1%%400)",PN2=28+PN2
for /f "tokens=%p2%" %%i in ("31 %pN2% 31 30 31 30 31 31 30 31 30 31") do set/a p3=%p3%+%%i
if %p3% leq %tt% goto nxt
:ppp
setlocal enabledelayedexpansion
set/a p3=%p3%-%tt%
for %%i in (p2 p3 t1 t2) do if "!%%i!" lss 10 set %%i=0!%%i!
for /f "tokens=*" %%i in ('dir /b /a-d "*.*" 2^>nul') do (
set "ta=%%~ti"
if not "%%~fi" == "%~f0" (
if "!ta:~0,4!!ta:~5,2!!ta:~8,2!!ta:~11,2!!ta:~14,2!" leq "!p1!!p2!!p3!!t1!!t2!" echo "%%~fi"
))
pause