批处理或VBS怎样获取前一天的日期？

wqshomebat · 发表于 2011-5-27 11:50:17

环境描述：
      自动备份昨天的日志上传ftp  备份完成后删除本地的日志。
日志的文件格式：例如今天是2011年5月23号，那么日志的格式就是 ws20110522log.txt

问题：关键怎样获取前一天的日期部分，其他文件名都是不变的
尝试使用 set fn=%date:~0,4%%date:~5,2%%date:~8,2%
            set/a fn=fn-1
但这个代码是有问题的，比如 6月1号的时候，20110601 本来应该是20110531  但结果为 20110600

*************************************************************************
在网上找到一个bat脚本可以解决不过比较麻烦，求助一下有没有更简单的方法，或者使用vbs 来写
望高手指点！

set yyyy=%date:~0,4%
set mm=%date:~5,2%
set dd=%date:~8,2%
set /a nd=!dd!-1
::如果象3月1日减一天是0天就...
if !nd!==0 call :dd0
if !mm!==0 call :mm0
set yyyymmdd=!yyyy!!mm!!nd!
echo !yyyymmdd!
pause
:dd0
set /a mm=!mm!-1
for %%a in (1 3 5 7 8 10 12)do set %%add=31
set /a pddd=!yyyy!*10/4
set pd2d=!pddd:~-1,1!
set 2dd=28
if !pd2d!==0 set 2dd=29
for %%b in (4 6 9 11)do set %%bdd=30
set nd=!%mm%dd!
goto :eof
:mm0
set /a yyyy=!yyyy!-1
set mm=12
set nd=31
goto :eof
pause

复制代码

batman · 发表于 2011-5-27 12:00:45

Dim yestaday
yestaday = DateAdd("d", -1, Date)
MsgBox yestaday

复制代码

Batcher · 发表于 2011-5-27 12:12:27

批处理获取指定天数之前的日期
http://bbs.bathome.net/thread-3330-1-1.html

slore · 发表于 2011-5-27 12:24:13

Dim yestaday
yestaday = Date - 1
MsgBox yestaday

batman · 发表于 2011-5-27 12:31:41

新方案：

@echo off
if "%1" neq "" goto next
mshta vbscript:createobject("wscript.shell").run("%~fs0 "^&date-1,1,0)(window.close)
goto :eof
:next
echo 昨天的日期为：%1
pause>nul

复制代码

CrLf · 发表于 2011-5-27 13:42:45

如果mshta能用echo多好

wqshomebat · 发表于 2011-5-27 14:11:19

2# batman

非常感谢高手指点
但是这个输出的格式不行， 2011/5/26 我的文件的格式是ws20110526log.txt ，请问这个格式可以改么？

batman · 发表于 2011-5-27 15:07:31

@echo off
if "%1" neq "" goto next
mshta vbscript:createobject("wscript.shell").run("%~fs0 "^&date-1,1,0)(window.close)
goto :eof
:next
for /f "tokens=1-3 delims=/-\:" %%a in ("%1") do set "y=%%a"&set "m=0%%b"&set "d=0%%c"
set "str=%y%%m:~-2%%d:~-2%"
echo 昨天的日期为：%str%
pause>nul

复制代码

wqshomebat · 发表于 2011-5-28 22:47:26

非常感谢指点

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 批处理或VBS怎样获取前一天的日期？

浏览过的版块