标题: [原创]判断是否闰年的小脚本
[打印本页]
作者: flyinspace
时间: 2007-3-26 14:41
标题: [原创]判断是否闰年的小脚本
呵呵。看了大家的脚本。深受启发。
于是写了这个玩。。
希望高手给我启发。。帮我精简代码。哈哈。
@echo off
set Year=%date:~4,4%
set /p y=请输入年份^>
call :SETYEAR %y%
if "%Isyear%"=="true" (
echo %y%是闰年
) else (
echo %y% 是平年
)
goto exit
:SETYEAR Inputyear
set Isyear=false
set /a Case_1_Year=%1 %% 4
set /a Case_2_Year=%1 %% 100
set /a Case_3_Year=%1 %% 400
if "%Case_2_Year%"=="0" (
if "%Case_3_Year%"=="0" (
set Isyear=true
goto :EOF
)
goto :EOF
)
if "%Case_1_Year%"=="0" set Isyear=true
goto :EOF
:exit
pause
作者: sjzong
时间: 2007-3-30 03:31
标题: 我不会帮你精简，但这是我自己写的，献丑了！！
@echo off
set /p y=请输入年份^>
set /a a=%y% %% 4
set /a b=%y% %% 100
set /a c=%y% %% 400
if "%a%"=="0" (
if not "%b%"=="0" goto :run
if "%c%"=="0" goto :run
goto :ping
) else goto :ping
:run
echo %y% 是闰年.
pause
:ping
echo %y% 是平年.
pause