中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]判断是否闰年的小脚本

flyinspace
银牌会员

积分 1206
发帖 517
注册 2007-3-25
状态离线

『楼主』: [原创]判断是否闰年的小脚本

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

@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

2007-3-26 14:41

sjzong
新手上路

积分 14
发帖 7
注册 2007-3-2
状态离线

『第 2 楼』: 我不会帮你精简，但这是我自己写的，献丑了！！

@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

2007-3-30 03:31

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: