中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 网上找到的计算日期的批处理,大家看看,有什么BUG吗?
作者:
标题: 网上找到的计算日期的批处理,大家看看,有什么BUG吗? 上一主题 | 下一主题
wuhanbin
初级用户





积分 191
发帖 86
注册 2008-8-18
状态 离线
『楼 主』:  网上找到的计算日期的批处理,大家看看,有什么BUG吗?

@echo off
title 日期查询
color 1f
if [%1]==[] call :Help
call :Date2Day %1 days
set/a days=%days%+%2
call :Day2Date %days% date
echo.
echo -----------结果---------------
echo.
echo 你查询的日期为:%date%
echo ------------------------------
cmd /k

:Date2Day
setlocal ENABLEEXTENSIONS
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (
  set yy=%%a & set mm=%%b & set dd=%%c
)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
endlocal&set %2=%j%&goto :EOF

:Day2Date
setlocal ENABLEEXTENSIONS
set /a i=%1,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
endlocal&set %2=%yy%-%mm%-%dd%&goto :EOF

:Help
    cls
    echo ________________________________________________                       
    echo 使用方法:%~nx0 [日期] [天数]
    echo.                           
    echo 日期格式:2007-03-31                     
    echo 天数格式:+/-查询的天数                        
    echo 示例:%~nx0 2007-03-31 3 就是查询3天后的日期  
    echo ________________________________________________
    echo.
    cmd /k

2008-9-5 11:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
wuhanbin
初级用户





积分 191
发帖 86
注册 2008-8-18
状态 离线
『第 2 楼』:  

另外,如何修改增加命令,使之能直接读取系统当前日期,并计算后5天日期?

2008-9-5 12:37
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 3 楼』:  

求N天前的日期
http://www.cn-dos.net/forum/viewthread.php?tid=31296

删除N天以前的文件
http://www.cn-dos.net/forum/view ... ghlight=&page=2



2008-9-5 13:17
查看资料  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: