for /f "tokens=1-3 delims=-./ " %%l in ('echo %date%') do (
set tempmon=%%l
set tempday=%%m
set tempyear=%%n
)
set MyToday=%tempyear%%tempmon%%tempday%
set /a myYeterday=%MyToday% -1
echo %myYesterday%>C:\1.txt
复制代码

@echo off
set "reg_pth=HKEY_CURRENT_USER\Control Panel\International"
for /f "skip=4 delims= " %%a in ('reg query "%reg_pth%" /v sShortDate') do (
  set RegDateOld=%%a
)
set RegDateOld=%RegDateOld:~-8%
reg add "%reg_pth%" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul
call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays
reg add "%reg_pth%" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul
set/a PassDays-=1
call :DaysToDate %PassDays% DstYear DstMonth DstDay
echo %DstYear%%DstMonth%%DstDay%>c:\1.txt
pause&goto :eof

:DateToDays %yy% %mm% %dd% days
setlocal ENABLEEXTENSIONS
set yy=%1&set mm=%2&set dd=%3
if 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-2472633
endlocal&set %4=%j%&goto :EOF

:DaysToDate %days% yy mm dd
setlocal ENABLEEXTENSIONS
set/a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set/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/=5
set/a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF
复制代码

@echo off & setlocal enabledelayedexpansion
> "c:\1.txt" (
for /f "tokens=1-3 delims=-./ " %%l in ("!date!") do (
  set /a "y=%%l,m=1%%m,d=1%%n-1,m-=^!(d-100),y-=^!(m-100),d+=^!(d-100)*(31-(^!(m-104)|^!(m-106)|^!(m-109)|^!(m-111))-^!(m-102)*(3-(^!(y%%4)&^!^!(y%%100)|^!(y%%400)))),m+=^!(m-100)*12")
echo !y!!m:~-2!!d:~-2!
)
复制代码

@echo off
if "%1" neq "" goto next
mshta vbscript:createobject("wscript.shell").run("%~fs0 "^&now()-1,1,0)(window.close)
goto :eof
:next
echo %1>a.txt
start a.txt
复制代码