获取两天前日期要求日期不满2位加0 - 中国DOS联盟论坛

@echo off
for /f %%a in ('echo wscript.echo date-2 ^>t~.vbs ^& cscript //nologo t~.vbs ^& del t~.vbs'

do set mydate=%%a
echo %mydate%
echo.&pause

这个是论坛高人写的
但是仅仅不能像 BAT那样
我的要求日期格式是
2008-10-08
而是不是 2008-10-8
希望高手修改一下

或者纯BAT也行不过BAT 在1号的前两天处理很头疼。。

呵呵没关系已经论坛里面找到答案了
谢谢！是我不好没用心找就发贴。。。
不过我找到的答案BAT的太臃肿了。。。

贴出来让大家帮你优化一下？

@echo off

setlocal enabledelayedexpansion

:Main
cls
:: 日期可以带星期，但是，必须以年月日的顺序排列
:: 年份必须是四位，否则会出错
set day=%date%
set days=0
echo.&echo.
echo       指定的日期是：%day%
echo.       
set input=2

:: 提取日期
for /f "tokens=1-3 delims=-/. " %%i in ("%day%") do (
    set /a sy=%%i, sm=100%%j %% 100, sd=100%%k %% 100
)

set /a sd-=input

if %sd% leq 0 call :count

cls
echo.&echo.
echo       指定的日期是：%day%
echo.
set sm=0%sm%
set sd=0%sd%
echo       %input% 天前的日期是：%sy%-%sm:~-2%-%sd:~-2%
RD /S /Q %sy%-%sm:~-2%-%sd:~-2% && echo %date%  删除 %sy%-%sm:~-2%-%sd:~-2%日期录像成功 >>删除记录日志.txt
exit
:count
set /a sm-=1
if !sm! equ 0 set /a sm=12, sy-=1
call :days
set /a sd+=days
if %sd% leq 0 goto count
goto :eof

:days
:: 获取指定月份的总天数
set /a leap="^!(sy %% 4) & ^!(^!(sy %% 100)) | ^!(sy %% 400)"
set /a max=28+leap
set num=0
set str=31 %max% 31 30 31 30 31 31 30 31 30 31
for %%i in (%str%) do (
    set /a num+=1
    if %sm% equ !num! set days=%%i&goto :eof
)
goto :eof

呵呵依旧是本论坛里面的的确有点臃肿了不过还好能解决问题现在我要删的是前两天的

把一楼的修改一下


@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2,3 delims=-" %%a in ('echo wscript.echo date-2 ^>t~.vbs ^& cscript //nologo t~.vbs ^& del t~.vbs') do (
    set y=%%a&set m=%%b&set d=%%c
    if %%b lss 10 set m=0%%b&if %%c lss 10 set d=0%%c
    echo !y!-!m!-!d!
)
echo.&pause

第1楼　p1509101	发表于 2008-10-08 15:20
中级用户　发帖 103　积分 206
[求助]获取两天前日期要求日期不满2位加0 @echo off for /f %%a in ('echo wscript.echo date-2 ^>t~.vbs ^& cscript //nologo t~.vbs ^& del t~.vbs' do set mydate=%%a echo %mydate% echo.&pause 这个是论坛高人写的但是仅仅不能像 BAT那样我的要求日期格式是 2008-10-08 而是不是 2008-10-8 希望高手修改一下或者纯BAT也行不过BAT 在1号的前两天处理很头疼。。

第2楼　p1509101	发表于 2008-10-08 15:33
中级用户　发帖 103　积分 206
呵呵没关系已经论坛里面找到答案了谢谢！是我不好没用心找就发贴。。。不过我找到的答案BAT的太臃肿了。。。

第3楼　HAT	发表于 2008-10-08 15:53
版主　发帖 5,017　积分 9,023
Re 2楼贴出来让大家帮你优化一下？

第4楼　p1509101	发表于 2008-10-17 19:47
中级用户　发帖 103　积分 206
@echo off setlocal enabledelayedexpansion :Main cls :: 日期可以带星期，但是，必须以年月日的顺序排列 :: 年份必须是四位，否则会出错 set day=%date% set days=0 echo.&echo. echo 指定的日期是：%day% echo. set input=2 :: 提取日期 for /f "tokens=1-3 delims=-/. " %%i in ("%day%") do ( set /a sy=%%i, sm=100%%j %% 100, sd=100%%k %% 100 ) set /a sd-=input if %sd% leq 0 call :count cls echo.&echo. echo 指定的日期是：%day% echo. set sm=0%sm% set sd=0%sd% echo %input% 天前的日期是：%sy%-%sm:~-2%-%sd:~-2% RD /S /Q %sy%-%sm:~-2%-%sd:~-2% && echo %date% 删除 %sy%-%sm:~-2%-%sd:~-2%日期录像成功 >>删除记录日志.txt exit :count set /a sm-=1 if !sm! equ 0 set /a sm=12, sy-=1 call :days set /a sd+=days if %sd% leq 0 goto count goto :eof :days :: 获取指定月份的总天数 set /a leap="^!(sy %% 4) & ^!(^!(sy %% 100)) \| ^!(sy %% 400)" set /a max=28+leap set num=0 set str=31 %max% 31 30 31 30 31 31 30 31 30 31 for %%i in (%str%) do ( set /a num+=1 if %sm% equ !num! set days=%%i&goto :eof ) goto :eof 呵呵依旧是本论坛里面的的确有点臃肿了不过还好能解决问题现在我要删的是前两天的

第5楼　terse	发表于 2008-10-17 20:02
银牌会员　发帖 946　积分 2,404
把一楼的修改一下 @echo off&setlocal enabledelayedexpansion for /f "tokens=1,2,3 delims=-" %%a in ('echo wscript.echo date-2 ^>t~.vbs ^& cscript //nologo t~.vbs ^& del t~.vbs') do ( set y=%%a&set m=%%b&set d=%%c if %%b lss 10 set m=0%%b&if %%c lss 10 set d=0%%c echo !y!-!m!-!d! ) echo.&pause