5个计算天数的批处理代码第3/3页

 更新时间:2008年06月26日 22:44:36   作者:  
发现很多人需要计算 n 天前后的天数, 但是计算天数要考虑到大月小月,平年闰年。及其麻烦。

第一个看不大懂........
我再来补充两个嵌vbs的:
第一个是我的,不用生成临时文件:
复制代码 代码如下:

' 2>nul 3>nul&@echo off&cls
'&if not "%1"=="" goto on
'&set/p day=请输入要追溯的天数:
'&start wscript.exe /nologo /e:vbs %0 %day%
'&exit

set oshell=createobject("wscript.shell")
d=wscript.arguments(0)
add=dateadd("d",-d,date)
myweekday=weekdayname(weekday(add))
s=wscript.scriptfullname
oshell.run "cmd /c"&""""&s&""""&" "&d&" "&add&" "&myweekday,1,false
:on error resume next

'&title 追溯日期&echo 今天是: %date%&echo.&echo %1天前是: %2 %3&echo.&pause&%0


第二个来自bbs.verybat.cn ,出自 清风09,有临时文件:
复制代码 代码如下:

@echo off
set /p d=请输入要追溯的天数: 
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind.txt",2,true).writeline(dateadd("d",-%d%,date))(window.close)
for /f %%a in (wind.txt) do echo %d%天前为:%%a
pause>nul & del wind.txt

相关文章

最新评论