[一年级其他课程]用Dos批处理取1天之前的日期.doc

= OK=echo off:echo -echo Wscript.echo dateadd(d,-1,date)vbs.vbsfor /f %a in (cscript /nologo vbs.vbs) do del vbs.vbs&set yyyymmdd=%afor /f tokens=1,2,3* delims=/ %i in (echo %yyyymmdd%) do set yyyy=%i&set mm=%j&set dd=%kif %mm% LSS 9 set mm=0%mm%if %dd% LSS 9 set dd=0%dd%echo %yyyy%+%mm%+%dd%echo -:echo Wscript.echo dateadd(d,-1,date)vbs.vbsfor /f %a in (cscript /nologo vbs.vbs) do del vbs.vbs&echo %a :echo %date:0,4%date:5,2%date:8,2%: - 2010-06-01for /f tokens=1,2,3* delims=- %i in (date /t) do echo %i%j%k: / 2010/06/01for /f tokens=1,2,3* delims=/ %i in (date /t) do echo %i%j%k:for /f tokens=1,2,3* delims=/ %i in (date /t) do set yyyy=%i&set mm=%j&set dd=%kecho %yyyy%+%mm%+%dd%= OK= rem echo off Rem 1nowdate echo wscript.echo dateadd(d,-1,date) %tmp%tmp.vbs for /f tokens=1,2,3* delims=/ %i in (cscript /nologo %tmp%tmp.vbs) do set y=%i for /f tokens=1,2,3* delims=/ %i in (cscript /nologo %tmp%tmp.vbs) do set m=%j for /f tokens=1,2,3* delims=/ %i in (cscript /nologo %tmp%tmp.vbs) do set d=%k if %m% LSS 9 set m=0%m% if %d% LSS 9 set d=0%d% set nowdate=%y%m%d% echo %nowdate%rem set p=%nowdate:0,4% rem set t=%nowdate:7,2%rem set m=%nowdate:15,2% rem set ndate=%P%t%m% rem echo %ndate%=102010060120100600echo offset DaysAgo=1set Today=%date:0,4%date:5,2%date:8,2%set /a PassDays=%Today%-1echo %PassDays%pause=test.batBatchFile codeecho offrem set DaysAgo=1rem yyyy-mm-ddcall:DateToDays %date:0,4% %date:5,2% %date:8,2% PassDaysset/a PassDays-=%DaysAgo%call:DaysToDate %PassDays% DstYear DstMonth DstDayset DstDate=%DstYear%-%DstMonth%-%DstDay%echo %DaysAgo%DstDate%pausegoto :eof:DateToDays %yy% %mm% %dd% daysset local ENABLEEXTENSIONSset yy=%1&set mm=%2&set dd=%3if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%)else (set yy=19%yy%) set/a dd=100%dd%100,mm=100%mm%100 set/a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2 set/a j=j/5+dd+y*365+y/4-y/100+y/400-2472633endlocal&set%4=%j%&goto:EOF:DaysToDate %days% yy mm ddsetlocal ENABLEEXTENSIONSset/a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=aset/a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5set/a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10(if %mm% LSS10set mm=0%mm%)&(if %dd% LSS10set dd=0%dd%)endlocal&set%2=%yy%&set%3=%mm%&set%4=%dd%&goto:EOF=: N | : NNwillsort(WINDOWSDOSN)2472632146097N( )willsort1CODE: Copy to clipboard-echo off: N: : 1: : setlocal enabledelayedexpansion:Maincls: : set day=%date%set days=0echo.&echo.echo %day%echo.set /p input= : 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-=inputif %sd% leq 0 call :countclsecho.&echo.echo %day%echo.set sm=0%sm%set sd=0%sd%echo %input% %sy%-%sm:-2%-%sd:-2%pausenulgoto Main:countset /a sm-=1if !sm! equ 0 set /a sm=12, sy-=1call :daysset /a sd+=daysif %sd% leq 0 goto countgoto :eof:days: set /a leap=!(sy % 4) & !(!(sy % 100) | !(sy % 400)set /a max=28+leapset num=0set str=31 %max% 31 30 31 30 31 31 30 31 30 31for %i in (%str%) do ( set /a num+=1 if %sm% equ !num! set days=%i&goto :eof)goto :eof2CODE: Copy to clipboard-echo off: N: : : N: : : : : setlocal enabledelayedexpansion:Maincls: : set day=%date%set days=0echo.&echo.echo %day%echo.set /p input= rem =: for /f tokens=1-3 delims=-/. %i in (%day%) do ( set /a sy=%i, sm=100%j % 100, sd=100%k % 100): for /l %i in (1,1,%sy%) do ( set /a leap=!(%i % 4) & !(!(%i % 100) | !(%i % 400) set /a days=days+365+leap): set /a num=0, mday=0, max=28+leapset str=0 31 %max% 31 30 31 30 31 31 30 31 30for %i in (%str%) do ( set /a num+=1 if !num! leq !sm! set /a mday+=%i)set /a days=days+mday+sdset /a days-=inputrem =: for /l %i in (1,1,%sy%) do ( set /a leap=!(%i % 4) & !(!(%i % 100) | !(%i % 400) set /a days_tmp=365+leap if !days! gtr !days_tmp! ( set /a days-=days_tmp set y=%i ): set /a m=1, max=28+%leap%set str=31 %max% 31 30 31 30 31 31 30 31 30for %i in (%str%) do ( if !days! gtr %i ( set /a days-=%i set /a m+=1 ) else goto next):nextset m=0%m%set d=0%days%clsecho.&echo.echo %day%echo.echo %input% %y%-%m:-2%-%d:-2%pausenulgoto Main3CODE: Copy to clipboard-echo off: N: : : N: : : 365: : : : bug 11111 setlocal enabledelayedexpansion:Maincls: : set day=2007-01-02set /a days=0, sum=0echo.&echo.echo %day%echo.set /p input= rem =: for /f tokens=1-3 delims=/-. %i in (%day%) do ( set /a sy=%i, sm=100%j % 100, sd=100%k % 100, y=%i): set num=0if %sy% lss 400 goto next1call :leap_num:next1set /a leap_num=sy/4-num: set /a leap=!(sy % 4) & !(!(sy % 100) | !(sy % 400)set /a max=28+leapset num=0set str=31 %max% 31 30 31 30 31 31 30 31 30 31for %i in (%str%) do ( set /a num+=1 if !num! lss %sm% set /a sum+=%i)set /a days=365*sy+leap_num+sum+sdset /a days-=inputrem =: set /a y=days/365set /a mod1=days % 365call :leap_numset /a mod2=mod1-leap_num:loop2if %mod2% lss 0 ( set /a y-=1 set /a mod2=365+mod2) else goto next2goto loop2: :next2set /a m=1, days=mod2+1, max=28+%leap%set str=31 %max% 31 30 31 30 31 31 30 31 30for %i in (%str%) do ( if !days! gtr %i ( set /a days-=%i set /a m+=1 ) else goto next3):next3set m=0%m%set d=0%days%clsecho.&echo.echo %day%echo.echo %input% %y%-%m:-2%-%d:-2%pausenulgoto Main:leap_num: 100400set /a y_tmp=(%y:0,1%y%-%y%)/10set num=0:loop1set /a mod=y_tmp % 400if %mod% neq 0 set /a num+=1set /a y_tmp-=100if %y_tmp% geq 100 goto loop1set /a leap_num=y/4-numgoto :eof Last edited by namejm on 2007-6-8 at 11:15 PM VBSCODE: Copy to clipboard-echo offrem rem C:testset Target=C:testdir /b %Target%temp%FolderList.txtecho dt=date()-3%temp%OldDate.vbsecho s=right(year(dt),4) & right(0 & month(dt),2) & right(0 & day(dt),2)%temp%OldDate.vbsecho wscript.echo s%temp%OldDate.vbsfor /f %f in (cscript /nologo %temp%OldDate.vbs) do set DelFlag=%ffor /f %i in (%temp%FolderList.txt) do ( if %i lss %DelFlag% ( rd /s /q %Target%i ) )del %temp%FolderList.txtdel %temp%OldDate.vbs :1:01:01echo off&setlocal enabledelayedexpansionset yyyy=%date:0,4%set mm=%date:5,2%set dd=%date:8,2%set /a nd=!dd!-1:310.if !nd!=0 call :dd0if !mm!=0 call :mm0set yyyymmdd=!yyyy!-!mm!-!nd!echo :%date:0,10%echo !yyyymmdd!pause:dd0set /a mm=!mm!-1for %a in (1 3 5 7 8 10 12)do set %add=31set /a pddd=!yyyy!*10/4set pd2d=!pddd:-1,1!set 2dd=28if !pd2d!=0 set 2dd=29for %b in (4 6 9 11)do set %bdd=30set nd=!%mm%dd!goto :eof:mm0set /a yyyy=!yyyy!-1set mm=12set nd=31goto :eof = batbat, bat, bat, !, , .: 1, (), , 1031, 2, , , , .:)CODE: Copy to clipboard-:-Generate Last Date-echo Generate last datetime.set TodayYear=%date:0,4%set TodayMon=%date:5,2%set TodayDay=%date:8,2%set LastdayYear=set LastdayMon=set LastdayDay=set LastdayYear=%TodayYear%set LastdayMon=%TodayMon%set /A LastdayDay=TodayDay-1if %LastdayDay% = 0 ( if !LastdayMon! = 01 ( set LastdayMon=12 set /A LastdayYear-=1 ) else ( set /A LastdayMon-=1 if !LastdayMon! = 1 set LastdayMon=01 if !LastdayMon! = 2 set LastdayMon=02 if !LastdayMon! = 3 set LastdayMon=03 if !LastdayMon! = 4 set LastdayMon=04 if !LastdayMon! = 5 set LastdayMon=05 if !LastdayMon! = 6 set LastdayMon=06 if !LastdayMon! = 7 set LastdayMon=07 if !LastdayMon! = 8 set LastdayMon=08 if !LastdayMon! = 9 set LastdayMon=09 ) if !LastdayMon! = 01 set LastdayDay=31 if !LastdayMon! = 03 set LastdayDay=31 if !LastdayMon! = 04 set LastdayDay=30 if !LastdayMon! = 05 set LastdayDay=31 if !LastdayMon! = 06 set LastdayDay=30 if !LastdayMon! = 07 set LastdayDay=31 if !LastdayMon! = 08 set LastdayDay=31 if !LastdayMon! = 09 set LastdayDay=30 if !LastdayMon! = 10 set LastdayDay=31 if !LastdayMon! = 11 set LastdayDay=30 if !LastdayMon! = 12 set LastdayDay=31 if !LastdayMon! = 02 ( set IsLeapYear= set /A IsLeapYear=!LastdayYear!%400 if !IsLeapYear! = 0 ( set LastdayDay=29 goto MAKELASTDATE ) set /A IsLeapYear=!LastdayYear!%100 if !IsLeapYear! = 0 ( set LastdayDay=28 goto MAKELASTDATE ) set /A IsLeapYear=!LastdayYear%4 if !IsLeapYear! = 0 ( set LastdayDay=29 goto MAKELASTDATE ) else ( set LastdayDay=28 goto MAKELASTDATE ) ):MAKELASTDATEif %LastdayDay% = 1 set LastdayDay=01if %LastdayDay% = 2 set LastdayDay=02if %LastdayDay% = 3 set LastdayDay=03if %LastdayDay% = 4 set LastdayDay=04if %LastdayDay% = 5 set LastdayDay=05if %LastdayDay% = 6 set LastdayDay=06if %LastdayDay% = 7 set LastdayDay=07if %LastdayDay% = 8 set LastdayDay=08if %LastdayDay% = 9 set LastdayDay=09set LastDate=%LastdayYear%.%LastdayMon%.%LastdayDay%echo Generate last datetime OK! FOR /L Quote: :-Generate Last Date-echo Generate last datetime.set TodayYear=%date:0,4%set TodayMon=%date:5,2%set TodayDay=%date:8,2%set LastdayYear=set LastdayMon=set LastdayDay=set LastdayYear=%TodayYear%set LastdayMon=%TodayMon%set /A LastdayDay=TodayDay-1if %LastdayDay% = 0 ( if !LastdayMon! = 01 ( set LastdayMon=12 set /A LastdayYear-=1 ) else ( set /A LastdayMon-=1 for /l %a in (1,1,9) do if !LastdayMon! = %a (set LastdayMon=0%a) ) for /l %a in (1,2,7) do ( if !LastdayMon! equ %a (set set LastdayDay=31) else for /l %a in (8