判断是否闰年的小脚本 - 中国DOS联盟论坛

呵呵。看了大家的脚本。深受启发。
于是写了这个玩。。
希望高手给我启发。。帮我精简代码。哈哈。

@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

第1楼　flyinspace	发表于 2007-03-26 14:41
银牌会员　发帖 517　积分 1,206
[原创]判断是否闰年的小脚本呵呵。看了大家的脚本。深受启发。于是写了这个玩。。希望高手给我启发。。帮我精简代码。哈哈。 @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

第2楼　sjzong	发表于 2007-03-30 03:31
新手上路　发帖 7　积分 14
我不会帮你精简，但这是我自己写的，献丑了！！ @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