中国DOS联盟

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

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

作者: 标题: 谁能帮忙写一个日期加减的代码 VBS BAT都行 见要求 上一主题 | 下一主题 hackhd 中级用户 积分 231 发帖 102 注册 2008-1-25 状态 离线 『楼 主』:  谁能帮忙写一个日期加减的代码 VBS BAT都行 见要求 效果是 假如今天是 日期A    天数    日期B 03/04 + 10  = 03/14 03/04  + 30  = 04/03 日期A和天数都要能手动输入 反过来也要有减的功能 2010-3-5 01:16 HAT 版主 积分 9023 发帖 5017 注册 2007-5-31 状态 离线 『第 2 楼』:   参考：批处理获取指定天数之前的日期 http://bbs.bathome.net/thread-3330-1-1.html 批处理函数库 http://bbs.bathome.net/thread-3056-1-1.html http://www.cn-dos.net/forum/viewthread.php?tid=45204 2010-3-5 09:30 qinchun36 高级用户 据说是李先生 积分 609 发帖 400 注册 2008-4-23 状态 离线 『第 3 楼』:   VBS的 DateStr = InputBox("输入一个日期，推荐使用下列格式之一" & vbCrLf & vbCrLf & "2010-03-05" & vbCrLf & "2010-3-5" & vbCrLf & "Mar 5, 2010" & vbCrLf & "2010年3月5日", "输入日期", Date) DayRange = InputBox("输入一个加或者减的天数，带符号，比如" & vbCrLf & vbCrLf & "+10" & vbCrLf & "-3", "输入天数") rsDate = CDate(DateStr) + CInt(DayRange) WScript.Echo rsDate 或者可以将此代码嵌入BAT中，输入的参数和上面相同： @echo off set /p riqi=输入日期: set /p tianshu=加减天数: call :CALCDATE "%riqi%" "%tianshu%" jieguo echo. echo 计算的结果是 %jieguo% 。 pause>nul exit :CALCDATE > %temp%\~$ching$.tmp echo WScript.Echo (CDate(WScript.Arguments(0)) + CInt(WScript.Arguments(1))) for /f "delims=" %%a in ('cscript -nologo -e:vbs %temp%\~$ching$.tmp "%~1" "%~2"') do (set "%3=%%a") del /q %temp%\~$ching$.tmp [ Last edited by qinchun36 on 2010-3-5 at 10:03 ] ┏━━━━━━┓ ┃据说是李先生┃ ┠──────┨ ┃＊ｎｔＲＳＳ┃ ┗━━━━━━┛ 2010-3-5 09:38        (182484135)       hackhd 中级用户 积分 231 发帖 102 注册 2008-1-25 状态 离线 『第 4 楼』:   特意回贴感谢的  效果很理想， 谢谢 2010-3-5 23:40

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

论坛跳转: 站务区  > 站务公告 & 版主讨论  > 意见反馈 & 网友交流 DOS讨论区  > DOS学习入门 & 精彩文章 （教学室）  > DOS疑难解答 & 问题讨论 （解答室）  > DOS启动盘 & LOGO技术 （启动盘室）  > DOS批处理 & 脚本技术（批处理室）  > DOS媒体世界 & 网络技术 （多媒体室）  > DOS汉化世界 & 中文系统 （中文化室）  > DOS开发编程 & 发展交流 （开发室）  > DOS软件下载 & 游戏分享 （下载室） 其它讨论区  > GRUB4DOS、SYSLINUX及其它启动管理软件讨论专区  > 其它操作系统综合讨论区  > WinPE、PowerShell及其它命令行系统专区  > 贴图灌水、文学娱乐专区 服务区  > 网络日志（Blog）  > 论坛回收站      > 链接失效，待修正