caruko 当前离线
中校
TOP
随风 当前离线
荣誉版主
cjiabing (甲兵时代)当前离线
batman 当前离线
考官
lxzzr (庄生晓梦)当前离线
论坛巡查
@echo off set currdate=%date:~0,10% set /p input=input: echo %input:~0,4%%date:~4,1%%input:~4,2%%date:~4,1%%input:~6,2% | date >nul && (echo.合法.& echo %currdate% | date >nul) || echo.非法. pause复制代码
abcdshenji 当前离线
一级士官
@echo off||检查日期合法性(yyyymmdd) :top cls set /p dt=Enter date: echo %dt%|findstr "^[0-9]*$">nul||(call :lp "日期只能是数字") if %dt% gtr 10000000 ( if %dt% lss 30000000 (ver>nul) else ( call :lp "只能是3000年以内" ) ) else ( call :lp "不足1000年" ) set/a y=%dt%/10000,m=%dt%%%10000/100,d=%dt%%%100 set "ds=312831303130313130313031" for /l %%i in (1 1 12) do ( if %m% equ %%i ( set /a n=%m%*2 setlocal enabledelayedexpansion set n=!n:~-2! endlocal ) ) if %d% gtr 0 ( if %d% leq %n% (call :lp "合法") else ( call :lp "%m%月没有%d%天" ) ) else call :lp "天数不能是0" pause>nul&goto :top :lp echo %~1&pause>nul&goto :top goto :EOF复制代码
评分人数