level 9
@echo off
set #=q&set/ax=0x53b7e0b4
title Any question +%#%%#% %x%
cd /d "%~dp0"
>"%tmp%\$t.vbs" echo;d1=date:d2=DateAdd("d",WSH.Arguments(0),d1):WSH.echo right(year(d2),4)^&"年"^&right("0"^&month(d2),2)^&"月"^&right("0"^&day(d2),2)^&"日"
for /f %%a in ('cscript -nologo "%tmp%\$t.vbs" 90') do set d1=%%a
for /f %%a in ('cscript -nologo "%tmp%\$t.vbs" 365') do set d2=%%a
echo;90天后=%d1%
echo;365后=%d2%
for %%a in (
2019年3月29日
2019年4月29日
2019年5月29日
2019年6月29日
2019年7月29日
2019年8月29日
2019年9月29日
2019年10月29日
2019年11月29日
2019年12月29日
2020年1月29日
2020年2月29日
2020年3月29日
2020年4月29日
2020年5月29日
2020年6月29日
2020年7月29日
2020年8月29日
2020年9月29日
2020年10月29日
2020年11月29日
2020年12月29日
2021年1月29日
2021年2月28日
2021年3月29日
2021年4月29日
) do (
for /f "tokens=1-3 delims=年月日" %%b in ("%%a") do (
set /a "y=%%b,m=100+%%c,d=100+%%d"
setlocal enabledelayedexpansion
if !y!年!m:~-2!月!d:~-2!日 leq %d1% (
>>"警报.txt" echo;%%a
)
if !y!年!m:~-2!月!d:~-2!日 gtr %d1% (
if !y!年!m:~-2!月!d:~-2!日 leq %d2% (
>>"预警.txt" echo;%%a
)
)
if !y!年!m:~-2!月!d:~-2!日 gtr %d2% (
>>"安全.txt" echo;%%a
)
endlocal
)
)
echo;Any question +%#%%#% %x%
pause
2019年03月29日 13点03分
3
哥 太厉害了 ,如果导入excel 怎么写
2019年03月30日 09点03分