谁能帮忙写一个日期加减的代码 VBS BAT都行见要求 - 中国DOS联盟论坛

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 ]

第1楼　hackhd	发表于 2010-03-05 01:16
中级用户　发帖 102　积分 231
谁能帮忙写一个日期加减的代码 VBS BAT都行见要求效果是假如今天是日期A 天数日期B 03/04 + 10 = 03/14 03/04 + 30 = 04/03 日期A和天数都要能手动输入反过来也要有减的功能

第2楼　HAT	发表于 2010-03-05 09:30
版主　发帖 5,017　积分 9,023
参考：批处理获取指定天数之前的日期 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

第3楼　qinchun36	发表于 2010-03-05 09:38
高级用户　发帖 400　积分 609
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 ]

第4楼　hackhd	发表于 2010-03-05 23:40
中级用户　发帖 102　积分 231
特意回贴感谢的效果很理想，谢谢