[日期时间] [已解决]批处理跨年份日期问题？

cbnuisve

在跨年份的时间得出的结果会出错。

@echo off
setlocal enabledelayedexpansion
 set DaysAgo=7
 call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays
 set /a PassDays-=%DaysAgo%
 call :DaysToDate %PassDays% DstYear DstMonth DstDay

 set "yyyy=%DATE:~0,4%" 
echo %yyyy%%DstMonth%%DstDay%\


 :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
复制代码

cbnuisve

回复 2# Batcher


    假设把当前日期修改为2016年1月1日 ，计算出的当前日期七天前的日期是20161225 （echo %yyyy%%DstMonth%%DstDay%\）面不是20151225

cbnuisve

回复 4# flyinnet9
非常感谢你。你这批处理解决了我之前哪跨年的问题，但是又有个新问题，当日期是2016年3月1日时，获取前七天的日期会是20160251而不是正确的 20160223

cbnuisve

回复 5# DAIC

C:\Users\user\Desktop>setlocal enabledelayedexpansion

C:\Users\user\Desktop>set DaysAgo=7

C:\Users\user\Desktop>call :DateToDays 2016 01 01 PassDays

C:\Users\user\Desktop>setlocal ENABLEEXTENSIONS

C:\Users\user\Desktop>set yy=2016  & set mm=01  & set dd=01

C:\Users\user\Desktop>if 12016 LSS 200 if 12016 LSS 170 (set yy=202016 )  else (set yy=192016 )

C:\Users\user\Desktop>set /a dd=10001%100,mm=10001%100

C:\Users\user\Desktop>set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2

C:\Users\user\Desktop>set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

C:\Users\user\Desktop>endlocal & set PassDays=16801  & goto :EOF

C:\Users\user\Desktop>set /a PassDays-=7

C:\Users\user\Desktop>call :DaysToDate 16794 DstYear DstMonth DstDay

C:\Users\user\Desktop>setlocal ENABLEEXTENSIONS

C:\Users\user\Desktop>set /a a=16794+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a

C:\Users\user\Desktop>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

C:\Users\user\Desktop>set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10

C:\Users\user\Desktop>(if 12 LSS 10 set mm=012 )  & (if 25 LSS 10 set dd=025 )

C:\Users\user\Desktop>endlocal & set DstYear=2015  & set DstMonth=12  & set DstDay=25  & goto :EOF

C:\Users\user\Desktop>set "yyyy=2016"

C:\Users\user\Desktop>echo 20161225\
20161225\

C:\Users\user\Desktop>pause
复制代码

cbnuisve

回复 6# 回家路上
谢谢，看了好久还是没看明白。能否解释一下它是怎么运行的吗？如果我要获取七天前的日期要怎么做修改呢？

@echo off & setlocal enabledelayedexpansion

call :yesterday yesterday
echo %yesterday%



:yesterday
for /f "tokens=2*" %%a in ('reg query "HKCU\Control Panel\International" /v sShortDate^|find/i"sSh"') do (
  >nul reg add "HKCU\Control Panel\International" /v sShortDate /t REG_SZ /d "yyyyMMdd" /f
  set /a "y=!date:~0,4!,m=1!date:~4,2!-100,d=1!date:~-2!-101"
  setlocal disabledelayedexpansion
  set /a "m-=!d,y-=!m,d+=!d*(31-(!(m-4)|!(m-6)|!(m-9)|!(m-11))-!(m-2)*(3-(!(y%%4)&!!(y%%100)|!(y%%400)))),m+=!m*12"
  set /a "m+=100,d+=100"
  >nul reg add "HKCU\Control Panel\International" /v sShortDate /t REG_SZ /d "%%~b" /f
)
endlocal & set "%1=%y%%m:~-2%%d:~-2%" & exit /b
复制代码

cbnuisve

回复 10# DAIC

谢谢，终于解决这问题了。

cbnuisve

回复 12# 回家路上


    谢谢你，我的问题已经解决了。