标题: 谁能帮忙写一个日期加减的代码 VBS BAT都行 见要求 [打印本页]
作者: hackhd 时间: 2010-3-5 01:16 标题: 谁能帮忙写一个日期加减的代码 VBS BAT都行 见要求
效果是
假如今天是
日期A 天数 日期B
03/04 + 10 = 03/14
03/04 + 30 = 04/03
日期A和天数都要能手动输入
反过来也要有减的功能
作者: HAT 时间: 2010-3-5 09:30
参考：批处理获取指定天数之前的日期
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
作者: qinchun36 时间: 2010-3-5 09:38
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中，输入的参数和上面相同：DayRange = InputBox("输入一个加或者减的天数，带符号，比如" & vbCrLf & vbCrLf & "+10" & vbCrLf & "-3", "输入天数")
rsDate = CDate(DateStr) + CInt(DayRange)
WScript.Echo rsDate
@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 ]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
作者: hackhd 时间: 2010-3-5 23:40
特意回贴感谢的 效果很理想， 谢谢