批处理如何获取昨天/前一天的日期

ywjbycd

@echo off
set dt=%date:~,10%
set de=%dt:~,8%
set dt=%dt:~-2%
set /a dt-=1

这是从网上找的一个取前一天时间的例子.但是到了今天没法使用了.因为今天是2014-09-01,前一天是2014-08-31.这个取完了是2014-09-0.
而且我把日期调整成2014-09-02 在看结果  是2014-09-1 少了一个0  正确的返回结果应该是2014-09-01.
求各路大神给个更好的例子.

yu2n

回复 1# ywjbycd

VBS 版(GetDateBefore.vbs)：

1. 
   
2. arrDate = Split(FormatDateTime(DateAdd("d", -1, Now()), vbShortDate), "-")
   
3. If Len(arrDate(1)) = 1 Then arrDate(1) = "0" & arrDate(1)
   
4. If Len(arrDate(2)) = 1 Then arrDate(2) = "0" & arrDate(2)
   
5. WScript.Echo Join(arrDate, "-")
   

复制代码

BAT 版(GetDateBefore.bat)：

1. 
   
2. @echo off
   
3. 
   
4. (echo,arrDate = Split^(FormatDateTime^(DateAdd^("d", -1, Now^(^)^), vbShortDate^), "-"^)
   
5. echo,If Len^(arrDate^(1^)^) = 1 Then arrDate^(1^) = "0" ^& arrDate^(1^)
   
6. echo,If Len^(arrDate^(2^)^) = 1 Then arrDate^(2^) = "0" ^& arrDate^(2^)
   
7. echo,WScript.Echo Join^(arrDate, "-"^) ) > "%temp%\GetDateBefore.vbs"
   
8. CScript //NoLogo "%temp%\GetDateBefore.vbs"
   
9. 
   
10. pause
    

复制代码

ywjbycd

谢谢大神.测试成功.取值2014-01-01 也会返回 2013-12-31.

ywjbycd

但是大神,请问我echo那个会出现这个值呢?
就像我发的那个例子 我会echo %dt%
你发的这个 我要echo哪个呢?

Batcher

http://bbs.bathome.net/thread-3330-1-1.html

yu2n

回复 4# ywjbycd
CMD语句中，一般获取命令行程序的结果，使用 for /f 。

1. @echo off
   
2. 
   
3. (echo,arrDate = Split^(FormatDateTime^(DateAdd^("d", -1, Now^(^)^), vbShortDate^), "-"^)
   
4. echo,If Len^(arrDate^(1^)^) = 1 Then arrDate^(1^) = "0" ^& arrDate^(1^)
   
5. echo,If Len^(arrDate^(2^)^) = 1 Then arrDate^(2^) = "0" ^& arrDate^(2^)
   
6. echo,WScript.Echo Join^(arrDate, "-"^)
   
7. ) > "%temp%\GetDateBefore.vbs"
   
8. 
   
9. for /f "tokens=1,* delims=??" %%i in ('CScript //NoLogo "%temp%\GetDateBefore.vbs"') Do (
   
10.   set strDateBefore=%%i
    
11. )
    
12. 
    
13. echo,%strDateBefore%
    
14. 
    
15. pause

复制代码

ywjbycd

嗯 好的.再次感谢各位大神的帮助.

ljhtianlin

运行不了。为什么会出现下标越界。。

yu2n

回复 8# ljhtianlin
可能是日期格式问题，导致分隔符生成的数组越界。

这个里面有一个比较好的方法来解决这个问题。
http://bbs.bathome.net/thread-3330-1-1.html

另外，我也写了一个函数修正这个问题。效果如下：

1. 今天日期：2014-09-05
   
2. 距离今天 12 天之前的日期：2014-08-24
   
3. 距离今天 16 天以后的日期：2014-09-21
   
4. 距离日期 2012-12-25 的 12 天之前的日期：2012-12-13
   
5. 距离日期 2012-12-25 的 16 天以后的日期：2013-01-10
   
6. 请按任意键继续. . .

复制代码

代码：

1. @echo off
   
2. 
   
3. Call :_GET_DAY_ADD
   
4. echo 今天日期：%DAY_ADD%
   
5. echo.
   
6. 
   
7. Call :_GET_DAY_ADD  -12
   
8. echo 距离今天 12 天之前的日期：%DAY_ADD%
   
9. echo.
   
10. 
    
11. Call :_GET_DAY_ADD  +16
    
12. echo 距离今天 16 天以后的日期：%DAY_ADD%
    
13. echo.
    
14. 
    
15. Call :_GET_DAY_ADD  -12  2012-12-25
    
16. echo 距离日期 2012-12-25 的 12 天之前的日期：%DAY_ADD%
    
17. echo.
    
18. 
    
19. Call :_GET_DAY_ADD  +16  2012-12-25
    
20. echo 距离日期 2012-12-25 的 16 天以后的日期：%DAY_ADD%
    
21. echo.
    
22. 
    
23. pause
    
24. goto :eof
    
25. 
    
26. 
    
27. :: 获取指定日期前
    
28. goto :eof
    
29. :_GET_DAY_ADD
    
30.   (echo d1 = Now^(^)
    
31.    echo d2 = d1
    
32.    if not "%~2"=="" echo d1 = Replace^("%~2", ".", "-"^)
    
33.    if not "%~1"=="" echo d2 = DateAdd^("d", Eval^("%~1"^), d1^)
    
34.    echo d2 = Right^(Year^(d2^),4^) ^& "-" ^& Right^("0" ^& Month^(d2^),2^) ^& "-" ^& Right^("0" ^& Day^(d2^),2^)
    
35.    echo WScript.Echo d2) > "%temp%\DayAdd.vbs"
    
36.    for /f "tokens=1,* delims=??" %%i in ('CScript //NoLogo "%temp%\DayAdd.vbs"') Do (
    
37.      set DAY_ADD=%%i
    
38.    )
    
39.    goto :eof

复制代码