标题: [原创]判断是否闰年的小脚本 [打印本页]

---

作者: 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